 ********************** * Limbajul Pascal * * ABC-doar * ********************** *********************************** * autor RUSU MIRCEA AUREL VALER * *********************************** **************************************** * MOTTO: * * "L'homme n'est qu'un roseau, * * le plus faiable de la nature, * * mais c'est un roseau pensant." * * Blaise Pascal * * * **************************************** Limbajul Pascal este simplu si expresiv,este modular si flexibil, permite programarea structurata si programarea orientata pe obiect, permite utilizarea de biblioteci alocate dinamic (DLL) si construirea unor biblioteci de functii noi,este modern si complet. Pe scurt,este un program didactic,multifunctional C O N T I N U T Introducere . . . . . . . . . . . . . . . . . . 1 Structura generala a unui program . . . . . . . 2 Unitatea WINCRT . . . . . . . . . . . . . . . 45 Unitatea System . . . . . . . . . . . . . . . 54 Unitatea WINPROCS . . . . . . . . . . . . . . 71 Unitatea Strings . . . . . . . . . . . . . . 113 Programarea orientata spre obiect (OOP). . . 114 Obiecte definite de utilizator . . . . . . . 158 Unitati statice. . . . . . . . . . . . . . . 180 Biblioteci alocate dinamic (DLL). . . . . . . 191 Imprimarea datelor (untiatea WinPrn) . . . . 202 INTRODUCERE Primele elemente ale limbajului Pascal au fost dezvoltate in anul 1970 de catre Niklaus Wirth,prin expandarea unor elemente ale limbajului Algol '60 si au avut caracter demonstrativ si didactic.Primul compilator de Pascal a fost scris de Donald B. Gillies la Universitatea Illinois cu scopul de a ordona si depana aplicatiile editate in acest limbaj.In anul 1980,firma Borland achizitioneaza drepturile de autor si redenumeste produsul informatic rezultat ca Turbo Pascal.In timp,limbajul a cunoscut un numar foarte mare de transformari si implementari,dar cele mai cunos- cute sunt cele dezvoltate sub mediile de operare DOS si Windows (versiuni comerciale).Ca urmare a numarului foarte mare de versiuni care circulau in paralel,s-a impus o standardizare a limbajului.Astfel,in 1983 s-a acceptat standardul ISO/IEC 7185 iar in 1990,pentru limbajul Pascal extins cu facilitati de programare orientata pe obiect(versiunea 5.5 si urmatoarele) s-a creat standardul ISO/IEC 10206.Pentru a explica importanta acestor standarde am sa apelez la asertiunea prin care "stiinta este acea activi- tate umana prin care orice neinteles se transforma in neintelesuri si mai mari".In sensul acestei definitii,limbajele de programare pot contribui semnificativ la dezvoltarea stiintei,mai ales atunci cand fiecare utili- zator aplica elementele de limbaj dupa reguli proprii.Nu trebuie uitat nici faptul ca orice limbaj de programare realizeaza un mod de comunicare intre om si masima de calcul,dar in ultima instanta realizeaza de fapt doar un mod de comunicare intre om si alti oameni care utilizeaza acelasi limbaj.Un limbaj de programare este doar o suma de conventii lexicale. Ca orice limbaj de programare,Pascal este format din o serie de ele- mente de limbaj:caractere si cifre numerice,operatori si semne de punctua- tie,cuvinte cheie (controale),constante si variabile,instructiuni si comenzi,declaratii si definitii,simboluri si siruri de caractere sau alte tipuri de date,expresii,functii si proceduri.Elementele de limbaj pot fi grupate la randul lor in blocuri mai mari de informatie structurate sub forma de file,unitati,arii de date,blocuri si tampoane de memorie,stream- uri (fluxuri de date),biblioteci de functii etc. In general,limbajele de programare au evoluat de la formele simple si extrem de simple,spre structuri din ce in ce mai complexe.Primele programe si limbaje de programare efectuau exclusiv operatii la nivel de bit (se numeau binare).Ulterior,s-au dezvoltat functii care operau blocuri de cate 8 biti,denumite bytes sau octeti apoi cuvinte (words) formate din cate 2 bytes adica 16 biti.Aceste programe,prelucrau per operatie cate o linie formata din 16 biti,utilizand procesoare cu cate 16 linii de date,si au primit numele de programe pe 16 biti.Din acestea,prin alipirea stivelor, s-au dezvoltat programle pe 32 de biti (Exemplu Win 32),apoi pe 64 de biti etc.Ultima dezvoltare,a permis efectuarea de operatii cu mai mult decat o linie de program.Astfel,datele pot fi structurate sub forma de obiecte informatice care pot fi prelucrate serial sau simultan cu ajutorul cele- brelor tehnici de programare orientata pe obiect (Exemple C++,Pascal etc.) Pascal,este un limbaj complex care permite atat operatii la nivel de bit necesare pentru scrierea si dezvoltarea de sisteme de operare,cat si pro- gramarea si efectuarea de operatii cu blocuri mari de date,inclusiv cu biblioteci intregi de date ce pot fi alocate dinamic (Exemplu: DLL). In concluzie,Pascal este un limbaj de programare complet,care poate sa- tisface toate necesitatile,atat pentru incepatori cat si pentru avansati. -2- La un screening sumar pe Internet,am identificat peste 80.000 de refe- rinte in limba romana la limbajul Pascal si peste 100.000 in limba engleza dintre care,un numar destul de mare de manuale si tutoriale.Totusi,la prima vedere,nu am identificat cartea pe care mi-ar place sa o citesc eu, asa ca m-am hotarat sa o scriu.Acest manual,exploateaza exclusiv infor- matiile din utilitarul Help,la care se adauga comentarii si exemple sau exercitii si aplicatii simple sau simpliste.Manualul se adreseaza celor care doresc sa invete limbajul Pascal autodidact,fara sa cunoasca la perfectie limba engleza.Manualul nu se adreseaza neaparat elevilor de liceu si nici incepatorilor.Cunostiintele elementare de programare,sau orice alt limbaj cunoscut (mai ales C si C++) vor simplifica foarte mult parcurgerea acestui manual.Am ales pentru prezentarea limbajului,versiunea Borland Pascal for Windows 7.0-1992 deoarece are o interfata grafica primitoare si include toate facilitatile semnificative.Pentru versiunea DOS si pentru explicitarea comenzilor si a notiunilor generale de infor- matica si/sau de operare a calculatoarelor,exista nenumarate manuale de liceu si monografii de specialitate,pe care le recomand calduros. Acest manual,nu garanteaza nici un fel de statut legal,nu este redactat cu scop didactic si nu asigura nici un fel de drepturi administrative ci este doar o forma alternativa de perceptie a notiunilor de programre.Este destinat exclusiv celor care doresc sa invete din placere,fara garantia unor drepturi materiale sau de orice alta natura,rezultate ca urmare a cunostiintelor dobandite. STRUCTURA GENERALA A UNUI PROGRAM Orice program generat in limbajul Pascal,trebuie sa respecte o sintaxa precisa.Datele si comenzile trebuie sa fie introduse intr-o anumita ordine astfel incat in momentul apelarii unei functii sa existe in memoria de operare a calculatorului toate elementele necesare pentru executie.In acest sens,la initializarea programului,se incarca automat in memoria de lucru un bloc de date si functii,denumite implicte,care pot fi apelate in orice moment.Pe langa aceste date,pentru executia programelor se pot utiliza file sau biblioteci de functii,care se incarca in memorie inainte de a incepe compilarea programului.Aceasta operatie se numeste precompi- lare si are ca scop formarea mediului de lucru (enviroment) in care se va desfasura executia programului.Astfel,in orice moment al executiei unui program,o parte din memoria de operare este incarcata cu functii,constante si variabile implicite,o alta parte din memorie este incarcata cu filele si bibliotecile auxiliare incarcate in etapa de precompilare,o alta parte din memoria de operare este incarcata cu datele si comenzile propriu zize din programul aflat in executie,iar o alta parte din memorie trebuie sa fie libera,astfel incat procesorul sa poata sa desfasoare operatiile prin- cipale sau sa ordoneze datele existente,etc.Este foarte important ca pro- gramatorul sa stie in orice moment,care este structura memoriei de operare pentru a evita suprascrierea blocurilor de date sau epuizarea memoriei. Chiar daca sistemele hardware au configuratii diferite,structurile soft- ware sunt aceleasi si nu se modifica decat ca urmare a unor comenzi spe- cial destinate pentru gestionarea memoriei de lucru.Pentru a asigura portabilitatea programelor,este bine sa se utilizeze configuratia impli- cita a memoriei,sau sa se specifice explicit orice modificare introdusa. -3- Programele scrise in Pascal sunt prin excelenta structurate modular si trebuie compartimentate in felul urmator: program ... ; contine titlul programului si parametrii uses ... ; contine directivele de preprocesare label ... ; sunt etichetele pentru instructiuni const ... ; contine declaratiile constantelor type ... ; contine declaratiile tipurilor de date var ... ; contine declaratiile variabilelor procedure ... ; contine declaratiile procedurilor function ... ; contine declaratiile functiilor begin ... comenzi si instructiuni contine blocul principal al programului ... end. Asadar,pentru orice program,trebuiesc definite initial elementele cu care opereaza,trebuiesc incluse in memorie datele si functiile predefinite si doar apoi se poate trece la comenzi.Toate datele dintr-un bloc de comenzi trebuiesc incluse intre begin... si ...end (in limbajul C se utilizeaza functia main si acolade ). Un exemplu elementar de program este urmatorul: program exercitiu1; uses WinCRT; var x: integer; begin Randomize; for x:=1 to 6 do begin writeln('Numarul: ',x,' este: ',Random(50)); end end. Compilati programul cu meniul Compile(Alt+F9) si apoi executati programul cu Run (Ctrl+F9).Programul extrage 6 numere aleatoare din 49.Salvati pro- gramul utilizand Save as cu numele de numere1.pas. Apoi scrieti urmatorul program (deschideti alta fila): program lansare_numere; uses WinProcs; begin Winexec('c:\bp\bin\numere1.exe',4); end. Compilati si executati cu Run.Observati ca programul a lansat in executie programul anterior.In plus,biblioteca WinCRT nu a mai trebuit redeclarata ci a fost alocata dinamic,la lansarea programului numere1.exe. Pentru familiarizare cu programul Turbo Pascal,deschideti cu Open cateva dintre programele demonstrative: welcome.pas,calc.pas etc.(in caseta Directories: dublu click pe [..] apoi alegeti directorul si fila dorita). Compilati si executati exemplele (cele pentru DOS nu ruleaza in Windows). -4- Pentru a respecta standardele convenite,Pascal utilizeaza doar carac- terele ASCII.O parte dintre acestea au functii speciale directe:operatori (+,-,=,<,> etc.),semnele de punctuatie(:,;,.{},[],{},etc.) iar altele se combina pentru a forma elemente distincte ale programului.Prin combinarea unui numar oarecare de caractere alfanumerice(cifre si litere) se obtin: identificatori,comentarii,instructiuni si comenzi,expresii,etichete,numere si functii numerice,cuvinte cheie,proceduri,simboluri speciale etc. TITLUL PROGRAMULUI Prima linie din orice program contine cuvantul cheie program,urmat de un sir de caractere pentru a desemna numele programului si parametrii sai. Titlul este pur informativ si nu are absolut nici un efect in timpul exe- cutiei programului.Rolul sau este doar de a avertiza utilizatorul in mo- mentul in care deschide o fila asupra continutului.Este bine ca titlul sa fie cat mai scurt si sugestiv.Eventual,se pot dezvolta programe speciale care sa identifice un program in functuie de titlul din prima linie. Exemplu: program primul_exercitiu IDENTIFICATORI Se utilizeaza pentru a atribui un nume,pentru orice element din pro- gram.Astfel constantele si variabilele,functiile si procedurile,filele si bibliotecile etc. vor avea nume specificate prin identificatori.Un iden- tificator este format doar din litere si cifre iar pentru legarea cuvinte- lor se poate utiliza liniuta de subliniere.Primul caracter din identifica- tor este obligatoriu sa fie litera sau _ (nu poate fi cifra).Pentru iden- tificatori se pot utiliza atat litere mici cat si majuscule (vor fi inter- pretate la fel).Versiunile vechi ale programelor Pascal acceptau maximum 8 caractere/identificator.Versiunile mai noi accepta 32,iar versiunea 7.0 accepta un sir de maxim 63 de caractere semnificative(restul vor fi igno- rate). Exemple: Dosar_1,Arhiva22,abc11xx,a_133PG,_117753,___a17,XXX11 Atunci cand in program exista mai multi identificatori care poarta acelasi nume,dar desemneaza elemente diferite ale programului,definite in module diferite,trebuie ca identificatorul sa fie precedat de numele unitatii in care a fost definit.Acesti identificatori poarta numele de identificatori calificati.Rostul lor este de a permite utilizarea constan- telor si a functiilor predefinite din diverse biblioteci de functii fara a fi necesar sa se redenumeasca toti identificatorii in programul curent. Exemple: System.MemVal System desemneaza unitatea iar Memval este identificatorul Titlul utilizat pentru program este tot un identificator. COMENTARII Se utilizeaza pentru a introduce in program si date care nu vor fi procesate.Pentru a introduce in program un comentariu,acesta trebuie sa fie inclus intre acolade simple {}.Se utilizeaza mai ales pentru a oferi explicatii sau pentru a marca principalele module din program,dar se pot utiliza si pentru a introduce coduri auxiliare,care vor fi executate in viitor dupa inlaturarea acoladelor(programare preventiva).Se utilizeaza foarte mult si in cursul proceselor de depanare,cand se exclud din program blocuri mai mari sau mai mici de date,pana cand se identifica eroarea. Exemplu: { acest program a fost realizat de ....X-ulescu } -5- Este bine sa introduceti comentarii explicative ori de cate ori apelati programe externe,sau introduceti functii si ecuatii greu de intuit la prima vedere.Comentariile trebuie sa fie cat mai scurte si cat mai precise si au doar rostul de a facilita procesul de depanare sau modernizare (in caz ca doriti ca programele d-voastra sa fie utilizate si de altcineva). Daca semnul de acolada este urmat imediat de caracterul $,atunci se schimba semnificatia si devine echivalenta cu combinatia (*,care semnifica o directiva (comanda) de compilare.Directivele de compilare au o sintaxa si o semnificatie speciala si se utilizeaza pentru: 1. modifica trasaturile caracteristice ale unor date compilate (Exemple: {$A = Align Data sau {$B = Boolean Evaluation etc. vezi-Switch Directives) 2. specifica para- metrii care influenteaza compilarea (Exemple: {$I FileName include fila sau {$LFile Name -asociaza si fila obiect -vezi Parameter Directives) sau 3. controleaza compilarea conditionala a unor anumite parti din fila sursa (Exemple: {$DEFINE ,{$UNDEF ,{$CPU86 -vezi Conditional Compilation). Directivele de compilare sunt o forma speciala de comentarii si pot fi utilizate in orice loc in care sunt acceptate comentariile (nu se includ in interiorul functiilor etc.). CONSTANTELE Sunt elemente de program,specificate printr-un identificator,care nu isi modifica valoarea in cadrul blocului de date in care au fost declarate Pentru atribuirea de valori unei constante,se pot utiliza expresii simple cu conditia ca expresiile utilizate sa poata fi evaluate direct in timpul procesului de compilare (sa nu necesite apelul unor functii speciale). Exemple: MaxData=1024*16 sau NUME = 'Balise Pascal' sau Nr=1177 Versiunile recente ale limbajului Pascal extins,accepta si unele expresii simple incluse in declararea constantelor,cu conditia ca acestea sa poata fi evaluate de catre compilator fara sa execute programul.Expresile care pot forma expresii constante sunt: Abs,Chr,Hi,Length,Lo,Odd,Ord,Pred,Ptr, Round,SizeOf,Succ,Swap si Trunc (vezi functiile implicite). Nu pot fi incluse in constante sub nici o forma variabilele si constantele cu tip declarat (typed constants),operatorul @ sau apelurile catre functii din program. Constantele cu tip declarat se utilizeaza pentru a declara variabile initializate.Spre deosebire de constantele simple,constantele cu tip de- clarat specifica in declaratie atat tipul de data cat si valoarea acesteia si pot fi modificate la fel ca si variabilele.Constantele cu tip declarat pot sa apara si in stanga expresiilor de atribuire (pot sa accepte valori la fel ca si variabilele,dar este constant tipul de data declarat). Exemple: Minimum: Integer = 0 sau Maximum: Integer = 9999 Constantele se declara la inceputul programului,imediat dupa etapa de preprocesare a filelor auxiliare.Pentru simplificarea muncii programa- torului,este recomandabil ca atunci cand utilizati aceleasi constante foarte frecvent,sa grupati declaratia si definitia acestora intr-o fila pe care sa o incarcati apoi la nevoie in etapa de procesare.Pentru datele utilizate cel mai frecvent,exista o serie de constante predefinite,gata declarate in filele incarcate cu uses.Inainte de a declara constante e bine sa verificati filele utilizate pentru a vedea constantele implicite de care dispuneti (care pot rezolva eventual necesitatile de moment). Nu declarati constante de care nu aveti nevoie (doar ca sa fie). -6- SIRURI DE CARACTERE Un sir este o secventa de caractere ASCII scrisa in acealsi rand din program si inclusa intre semne de apostrof.Exemplu: 'Sir de caractere ' Sirul de caractere care nu contine nimic intre delimitatori(apostrof) este sirul nul (Exemplu: '').Doua semne apostrof secventiale in acelasi sir, denota un singur caracter,adica un apostrof.Lungimea unui sir de caractere este egala cu numarul de caractere cuprins intre delimitatori. Versiunea Borland Pascal extinsa (7.0) accepta si caracterele de control,care pot fi incluse in sir.Astfel,caracterul # urmat de un numar int cuprins intre 0 si 255 are semnificatia caracterului ASCII cu codul numeric respectiv. EXEMPLU: uses WinCRT; begin writeln(#65#66#67); end. Exercitiul de mai sus va afisa ABC. Este necesar sa nu existe spatii intre semnul # si valoarea numerica. Un sir de caractere,chiar daca are lungimea zero (sirul null) nu este compatibil decat cu tipul de date string (nu poate fi manevrat cu functii destinate pentru tipul char). Un sir de caractere cu lungimea de un singur caracter,este compatibil si cu tipul char (exceptie-poate fi utilizat cu functii char). Un sir de caractere format din doua sau mai multe caractere este compati- bil cu tipul de date string,cu ariile de date de tip caracter si cu pointerii de tip caracter (PChar type). BIBLIOTECI DE FUNCTII Dupa declararea titlului,urmeaza etapa de preprocesare.Cu ajutorul cuvantului cheie USES se pot utiliza diversi identificatori pentru a include in memoria programului diferite blocuri de functii predefinite, care poarta numele de unitati.Pentru a incarca biblioteca de functii spe- cificata,compilatorul cauata initial in directorul Units,apoi cauta pe disc filele cu extensia .TPW (Windows) sau .TPU (Dos). Principalele unitati care insotesc programul sunt: Crt,Dos,Graph,Graph3, Overlay,Printer si System pentru versiunea Dos,respectiv Strings,WinCrt, WinPrn,WinProcs si WinTypes pentru versiunea Windows. Versiunea Windows include si unitati pentru obiecte: Objects,ODialogs, OMemory,OPrinter,OStdWnds,OWindows,Validate. Aceste biblioteci sunt unitati standard si sunt concepute ca si cand ar fi programe scrise in Pascal,independente.Fiecare unitate are un corp de date care poate fi apelat inainte de a incarca restul programului si care executa toate initializarile necesare pentru aplicarea functiilor conti- nute. Pe langa unitatile standard,puteti include in programele d-voastra si unitati proprii,sau obtinute din diverse surse.In cazul in care utilizati in programe si aplicatii,alte unitati decat cele standard,este bine sa insotiti programul cu o nota explicativa si sa agaugati la program si unitatea respectiva,eventual cu explicatiile necesare. EXEMPLE: uses WinCRT; include unitatea WinCRT (versiunea Windows) uses Crt,Dos include Crt si Dos (versiunea Dos) Atentie:-nu incarcati memoria inutil cu biblioteci neutilizate. -7- ETICHETE (Labels) -sunt identificatori utilizati pentru a marca instructiunile din program, astfel incat sa se poata executa salturi in program cu ajutorul instruc- tiunii GOTO.Sintaxa generala a unei etichete este de forma: label identificator,...identificator unde label este un cuvant cheie special destinat pentru acest scop iar identificatorul se construieste dupa regulile obisnuite.In plus,pentru etichete se pot utiliza si numere cuprinse intre 0 si 9999.Cu ajutorul acestor etichete,se pot executa salturi in progam de genul: label 1; ...... instructiuni; ...... goto 1; Instructiunile marcate cu etichete pot fi: :=,begin...end,case...of...end, for...to...do,goto,if...then...else,inline(...),apelul unor proceduri, repeat...until,whilw...do,with...do. TIPURI DE DATE Limbajul Pascal este un limbaj de nivel inalt de integrare,adica nu ope- reaza doar cu biti si octeti ci permite structurarea datelor in grupuri mai mari sau mai mici de informatie,astfel incat operativitatea si viteza de excutie sa creasca foarte mult.Din ratiuni pur tehnice,sau din necesi- tati de organizare a memoriei,datele au fost grupate in tipuri de date cu format diferit,astfel incat prelucrarea lor sa fie cat mai facila. Exemple:-valorile numerice utilizate in operatii matematice cu virgula mobila necesita cooperarea coprocesorului matematic de tip 8087,care nu accepta decat un anumit format al datelor in timp ce sirurile de caractere dintr-o pagina de text sau imaginile bitmap au cu totul alte necesitati de prelucrare.In mod similar,apelarea memoriei fizice se face prin adrese hexazecimale in timp ce memoria de operare poate fi structurata diferit. Pentru apelul memoriei sau introdus elemente de programare denumite pointeri care au ca valoare tocmai adresa de memorie spre care pointeaza. Tipul de data se asociaza unui anumit identificator,pentru a desemna atat identitatea elementului cat si formatul sau.Sintaxa generala este: type identificator = tipul de data unde type este un cuvant cheie special destinat pentru declararea tipuri- lor de data.Principalele tipuri de date sunt: array -este cuvant rezervat si defineste o arie de date SINTAXA GENERALA este: array [index-type] of element-type Aria de date va avea numarul de elemente specificat prin index si va contine elemente din tipul type.Numarul de elemente tre- buie sa fie ordinal (o valoare int,byte sau word). EXEMPLE: IntLista = array[1..100] of Integer; adica aria este o lista formata din 100 de elemente de tip int CharData = array['A'..'Z'] of Byte; adica aria contine z elemente de tip byte (de la a la z) Matrix = array[0..9,0..9] of real; adica aria este o matrice,formata 10 grupuri de cate 10 elemente de tip real.Elementele se vor identifica prin Matrix[0,0] sau Matrix[0,1],sau Matrix[5,7] etc. -8- Ariile de date se utilizeaza pentru a structura date de acelasi fel.Un exemplu frecvent sunt tabelele si calculul tabelar. Ariile se pot utiliza si pentru constante de tip arie.In cazul elementelor de tip caracter,ariile de caractere se pot initializa fie utilizand ca- ractere fie utilizand siruri.Exemplu: Arie: array[0..9] of Char = ( '0','1','2','3','4','5','6','7','8','9'); se poate initializa si astfel: Arie: array[0..9] of Char = ( '0123456789') Ariile de caractere pot fi si multidimensionale.De exemplu,o arie cu trei dimensiuni,care contine cate doua elemente se declara astfel: Cube= array[0..1,0..1,0..1] of Integer; si se initializeaza cu valori astfel: Arie1: Cube =(((0,1),(2,3),(4,5),(6,7))) Aria declarata si initializata va contine urnatoarele date: Arie1[0,0,0]=0 Arie1[0,0,1]=1 Arie1[0,1,0]=2 Arie1[0,1,1]=3 Arie1[1,0,0]=4 Arie1[1,0,1]=5 Arie1[1,1,0]=6 Arie1[1,1,1]=7 Pentru declararea si definirea ariilor multidimensionale se utilizeaza paranteze in care se introduc separate prin virgula,elementele distincte pentru fiecare dimensiune. Ariile pot fi initializate si cu siruri de caractere mai scurte decat lungimea ariei.Daca un sir de date este mai scurt decat aria in care este arhivat,toate elementele excedentare vor fi de tip NULL.Exemplu: const FileName = array[0..79] of Char = 'TEST.PAS'; Acest gen de declaratii se utilizeaza de exemplu pentru calea de acces la o fila.Pentru ca sa fie operationala,compilatorul trebuie sa accepte ariile de caractere cu baza zero (primul caracter este zero iar ultimul caracter este pozitiv,difarit de zero).Ariile de caractere cu baza zero sunt acceptate in sintaxa extinsa cu ajutorul directivei de compilare{$X+} care activeaza reguli speciale pentru interpretarea sirurilor. file -este un tip de data utilizat pentru a grupa alte tipuri de date. Poate contine o secventa liniara de elemente formate din orice alt tip de date decat tipul file. SINTAXA GENERALA este: file of type {file cu tip definit} sau: file {file cu tip nedefinit} Astfel,o fila predefinita de tip Text va contine dar siruri de caractere.Daca dupa cuvantul cheie file nu urmeaza si of,inseamna ca fila este declarata fara tip predefinit si poate fi utilizata pentru orice tip de date. EXEMPLE: Dosar= file of Char; Numere= file of Integer; Fila1= file; Arie= file of Array; Cifre= file of Real; Fila1 este fara tip definit,restul filelor au tip de data definit. -9- Filele cu tip de data definit se utilizeaza impreuna cu functii,proceduri sau algoritmi speciali pentru tipul de data respectiv.Filele pot fi declarate si pentru tipuri de data dfinita de utilizator.Exemplu: type Persoana= record ; Nume: string[15]; Prenume: string[25]; Adresa: string[35]; end; FilaPersonal= file of Persoana; In acest caz,fila va contine doar inregistrari din tipul declarat pentru Persoana. object -este un tip de data destinat pentru programarea orientata pe obiect.Este de fapt o structura de date,care poate organiza date de tip diferit.Este format din: un identificator al obiectului, o lista de delcaratii pentru fiecare tip de data continut si o serie de metode,care sunt functii si proceduri declarate in interiorul obiectului pentru a opera asupra tipurilor de date declarate in lista. SINTAXA GENERALA este: object Field; Field; .... Method; Method; end; Campurile de date (Field) contin date de un anumit fel,iar meto- dele (Method) contin functiile si procedurile care opereaza cu datele din obiect. Declaratia fiecarui camp de date trebuie sa contina un identifi- cator si tipul de data.Exemplu: Dosar= Arhiva1 : Char Pentru metode se va utiliza doar numele functiei sau al procedu- rii,al constructorului sau al destructorului(apelul functiei). Functia sau procedura respectiva este definita in afara obiect- ului (sau este implicita).Exemplu: metoda= procedure NumeleProcedurii(<parametrii>:tipul); metoda=function NumeleFunctiei(<parametrii>:tipul):type; metoda=constructor NumeleFunctiei(<parametrii>:tipul); Functiile constructor sunt functii care construiesc o expresie de calcul din elemente mai mici,in functie de conditiile locale ale obiectului iar cele destructor,separa expresiile mai mari in parti componente necesare pentru executia unor operatii in cadrul obiectului. In termeni generali,un obiect poate fi privit ca un subprogram,sau un modul de program care efectueaza operatii independent de pro- gramul principal.Astfel,din programul principal se pot lansa in executie simultana mai multe obiecte,in care functiile si proce- durile incluse executa operatii asupra datelor,dupa care returnea- za rezultatul obtinut in programul principal. -10- Un obiect poate mosteni componente de la un alt obiect.In acest caz, obiectul care mosteneste este numit descendent iar cel mostenit este numit ancestor.Domeniul unui obiect este format din domeniul tipurilor de date pe care le contine,la care se adauga si domeniul tuturor descen- dentilor sai.Pentru ca procesul de mostenire sa poata avea loc,obiectul mostenit trebuie sa fie referit in obiectul mostenitor. EXEMPLU: type PBaseObject= ^TBaseObject; TBaseObject= object(TObject); end; Versiunea Borland 7.0 are o unitate separata denumita Onjects care contine constante,obiecte,proceduri si functii,inregistrari,tipuri de date si variabile special declarate sau definite pentru operatii cu obiecte.Obiectele predefinite au o ierarhie usor de evidentiat cu uti- litarul ObjectBrowser. Obiectele sunt extrem de utile in cazul sistemelor de operare care permit procesarea simultana a mai multor procese paralele (multitasking) deoarece actioneaza ca si cand ar fi mai multe programe care se deruleaza in paralel,crescand exponential viteza de prelucrare a datelor.In cazul sistemelor de operare de tip DOS in care datele sunt prelucrate serial, se pot implementa si structuri de date asemantoare cu tipul de data object,dar eficienta lor este egala cu cea a procedurilor si nu fac decat sa complice inutil structura programelor. ordinal -este un cuvant cheie care desemneaza tipurile de date ordinale, adica acele tipri de date care pot fi ordonate crescator sau descrescator,fie prin valoarea lor numerica fie cu ajutorul unui cod numeric asociat.Pentru ordonare se utilizeaza o rutina care salveaza datele in adrese hexazecimale,astfel incat nu poate accepta formatele mari,numerele in virgula mobila etc. Tipurile de date ordinale sunt: tipurile integer(Shortint, Integer,Longint,Byte si Word),tipurile booleene(Boolean,WordBool LongBool,ByteBool),tipul char si tipurile de date definite de utilizator ca enumerari sau subtipuri ordonate. Integer -este identificatorul utilizat pentru declararea tipurilor de date formate din numere intregi.Cele 5 tipuri de date integer sunt: Tipul Domeniul Formatul Shortint -128....127 Signed 8-biti (cu semn) Integer -32768..32767 Signed 16-biti (cu semn) Longint -2147483648...2147483647 Signed 32-biti (cu semn) Byte 0...255 (ASCII) Unsigned 8-biti (fara semn) Word 0...65535 Unsigned 16-biti(fara semn) Toate tipurile integer opereaza exclusiv cu numere intregi.Cele de tip signed (cu semn) permit si valori negative,iar cele de tip unsigned (fara semn) permit exclusiv valori pozitive. Exemple: Shortint x=33 , Longint y=137599 etc. Char -este identificatorul utilizat pentru datele de tip caracter . Se utilizeaza pentru arhivarea caracterelor de tip ASCII. Exemple: 'A' , '3' , '&' , '+' etc. -11- Datele de tip char se pot utiliza cu functia Chr() pentru a face converisa dintre valoarea numerica de tip Integer(codul numeric) si caracterul ASCII corespunzator,sau cu functia Ord() pentru a returna valoarea numerica a caracterului ASCII. Boolean -sunt tipuri de date logice care accepta doar doua valori logice, respectiv False(fals) sau True (adevarat).Cele patru tipuri booleene sunt: TIP VALORI DIMENSIUNE Boolean False,True 8 biti (=1 byte,= 1 octet) WordBool False,True 16 biti (=2 bytes, = 2 octeti) LongBool False,True 32 biti (=4 bytes, = 4 octeti) ByteBool False,True 8 biti (= 1 byte, = 1 octet) Se utilizeaza pentru a verifica daca o afirmatie este sau nu este adevarata.Prin combinare cu operatorul ! (NOT) se pot obtine si variante.Se pot utiliza si in expresii complexe de tip AND...OR... Fiind caractere ordinale,ordinea in care sunt recunoscute este urmatoarea: False < True Ord(False)=0 Ord(True)=1 Succ(False)=True Pred(True)=False Tipul preferat este tipul Boolean care utilizeaza cea mai putina memorie.ByteBool,WordBool si LongBool sunt utilizate mai ales in aplicatii Windows (Win 32 etc.). Atunci cand se evalueaza expresii,rezultatul se considera ca este False atunci cand expresia returneaza zero(0) sau rezultatul este True atunci cand expresia returneaza o valoare nonzero (de obicei 1).Orice expresie evaluata zero este considerata a fi False. Daca se utilizeaza in expresii complexe,impreuna cu NOT,OR sau XOR,expresiile vor fi evaluate,iar rezultatul returnat va fi 0 sau 1 (True sau False).Pentru orice valoare nonzero,valoarea logica True va fi returnata ca 1. Exemple: x=x-x returneaza False (0) sau...NOT True x=7-3 returneaza True (1) sau...NOT False Toate datele de tip ordinal pot fi ordonate crescator sau descrescator (de unde si numele de ordinale).Pot fi utilizate functiile:Ord(),Pred() sau Succ(). pointer -este un tip de data utilizat pentru operatii asupra memoriei. Un pointer este de fapt o variabila care contine adresa de me- morie la care este arhivata o alta variabila cu tip de data pre- definit (de orice tip).Se spune ca pointerul este orientat spre o adresa de memorie,sau in alti termeni se spune ca pointeaza adresa de memorie a variabilei respective.Se utilizeaza pentru un acces direct si facil la memorie,mai ales in cadrul functiilor care opereaza cu date din memorie.In lipsa pointerilor,la fiecare apel al unei variabile,procesorul ar trebui sa verifice intreaga stiva de date pentru a gasi adresa solicitata.Cu ajutorul unui -12- pointer,adresa variabilei solicitate este apelata direct fara sa fie necesara verificarea intregii stive.Astfel se limiteaza enorm de mult numarul de operatii necesare pentru rularea unui program si creste foarte mult viteza de executie. Pentru declararea unui pointer sa pot utiliza procedurile New() sau GetMem() sau se utilizeaza operatorul @ ("operatorul at"). Pentru a realiza un pointer se poate utiliza si functia PTR() care face conversia unei adrese,specificata prin offset si segmentul baza,intr-un pointer. EXEMPLU: program pointer; uses WinCRT; var P:^Byte; begin P:=Ptr($40,$49); writeln('Modul video curent este:',P^); end. Tipul de pointer predefinit Pointer este fara tip de data,adica nu pointeaza nici o adresa de memorie.Tipul de pointer predefinit ca PChar, denota un pointer spre un sir de caractere si se declara astfel: type PChar = ^Char; Exemple de declarare a pointerilor: BytePtr = ^Byte; WordPtr = ^Word; IdentPtr = ^Identrec; IdentRec = record Ident : string[15]; RefCount : Word; Next : IdentPtr; end; Se pot declara si constante de tip pointer,caz in care poinerul va fi orientat spre o adresa de memorie fixa. Daca se utilizeaza si directiva de compilare {$X+} si se incarca regulile de sintaxa extinsa pentru tipul PChar,atunci pointerii de tip PChar pot fi initializati si cu constante de tip sir de caractere. real -este un tip de date destinat pentru reprezentarea numerelor reale in virgula mobila si pe un numar fix de digiti. O valoare de tip real,se exprima in virgula mobila prin fragmenta- rea numarului in: M (mantisa),B (baza) si E (exponent) astfel incat numar=M*B E.Pentru reprezentarea exponentiala,baza este intotdeauna 2 iar mantisa si exponentul sunt numere reale.Pentru numerele reale,in Turbo Pascal exista cinci tipuri de date: TIP DOMENIU DIGITI BYTES real 2.9e-39....1.7e38 11-12 6 single 1.5e-45....3.4e38 7-8 4 double 5.0e-324...1.7e308 15-16 8 extended 3.4e-4932..1.1e4932 19-20 10 comp -9.2e18....9.2e18 19-20 8 Pentru utilizarea celor 5 tipuri de date,este necesara utilizarea directivei de compilare {$N+} pentru utilizarea coprocesorului 80-87.In caz contrar nu se pot utiliza decat cele de tip real. -13- EXEMPLU: {$N+} program nr_real; uses WinCrt; var numar:extended; begin numar:=3.14e520; numar=numar*2.73e730; writeln('Valoarea finala este: ',numar); end. Observati ca valoarea rezultata (8.5722 E+1250) este de ordinul 10 la puterea 1250.Pascal,lucreaza cu cifre astronomice utilizand spatii de memorie relativ mici (pentru aceleasi operatii,C si C++ utilizeaza cate o pagina intreaga pentru ficecare valoare de tip long double),dar precizia nu este mai mare decat numarul de digiti (adica 10 digiti). Tipul comp este de fapt un tip Integer pe 64 de biti,care accepta valori intre -2 la puterea 63+1 (-9.2e18) si 2 la puterea 63-1(9.2e18),dar a fost inclus intre tipurile reale deoarece utilizeaza cate 8 bytes pentru fiecare valoare (inclusiv pentru 0 sau 2).Pentru reprezentarea numerelor in formate mari,este necesara prezenta coprocesorului matematic 8087 si rezpectiv utilizarea directivei de compilare {$N+}. record -este un tip de data utilizat pentru gruparea unui grup de date de acelasi tip sau de tip diferit.In limbajul C acest tip de date poarta numele de structure si a stat la baza introducerii tipului de date object(un obiect este o structura fara metode).Poarta numele de inregistrari (records) si sta la baza programarii structurate.Programele care opereaza cu baze de date formatate (gen FoxPro) utilizeaza tipuri de date ase- manatoare pentru formarea si gestionarea fisierelor. SINTAXA GENERALA este: record record fields; fields; fields; sau ........ ...... case tag: type of fields; case: (fields); end; .............. case: (fields); end; Fiecare camp de date specificat prin fields contine de fapt un identificator si un tip de data. Exemple: Data = record Persoana = record Zi,Luna,An: Integer; sau Nume: string; end; Adresa: string; Data: Date; Telefon: Integer; end; Pentru definirea si respectiv referirea datelor din inregistrari se va utiliza numele inregistrarii urmat de punct si apoi de identificatorul datei specificate. Exemple: Data.Zi='Sambata'; sau Persoana.Nume='Popescu'; si writeln(Data.zi) writeln(Persoana.Nume) -14- EXEMPLU: program inregistrare; uses WinCRT; var Persoana : record Nume:string; Prenume:string; Adresa:string; Telefon:Longint; end; begin Persoana.Nume:='Popescu'; Persoana.Prenume:='Ion'; Persoana.Adresa:='Str. Unirii nr. 10 '; Persoana.Telefon:=541133; writeln('Numele este: ',Persoana.Nume); writeln('Prenumele este: ',Persoana.Prenume); writeln('Adresa este: ',Persoana.Adresa); writeln('Telefonul este: ',Persoana.Telefon); end. Intr-o astfel de inregistrare,se pot include toate datele importante ale unei persoane.Inregistrarile pot fi incluse la randul lor in file care contin exclusiv inregistrari iar filele pot fi incluse in fisiere,pentru a forma o baza de date formatate.In aceste baze de date,accesul la o anumita informatie este mai rapid,deoarece se cauta initial inregistrarea si doar apoi o anumita data arhivata.O inregistrare declarata si definita poate fi inclusa la randul sau in alta inregistrare,sub forma de camp de date (membru al inregistrarii).Acest procedeu permite structurarea clara a informatiilor si a stat la baza conceptului de programare structurata, din care s-au dezvoltat ulterior obiectele si programarea orientata spre obiect.Exemplu: datele persoanei se includ intr-o inregistrare cu datele angajatilor unei institutii,care se include in alta inregistrare care cuprinde forta de munca din localitate etc. Inregistrarile pot fi si cu valoare constanta (record-type constants).In acest caz,campurile de date trebuie sa fie declarate in aceeasi ordine ca si in definitia inregistrerii,iar daca inregistrarea contine mai multe variante,tipul constant va declara doar varianta care ramane definitiva si va specifica si valoarea datei utilizata pentru selectie(tag field value). EXEMPLU: const Data1 = record Zi: 1; Luna: Mai; An: 2000; end; La prima vedere,utilizarea inregistrarilor pare greoaie,dar cu putin exer- citiu,prin gruparea inregistrarilor in subrutine denumite proceduri si prin utilizarea unor functii care citesc inregistrarile automat,ve-ti obseva ca viteza de lucru creste foarte mult atunci cand aveti de prelu- crat un volum mare de informatii. Versiunea Windows,in unitatea Object,contine o serie intrega de inregis- trari predefinite(LongRec,PtrRec,TDialogAttr,TMessage,TMultiSelRec, TStreamRec,TWindowAttr si WordRec) care sunt foarte utile pentru necesi- tatile uzuale de programate.Verificati si aceste inregistrari inainte sa definiti altele noi. -15- set -este un tip de data utilizat pentru a grupa date de tip ordinal, cu maximum 256 de valori posibile.Astfel,valorile de la limita inferioara si respectiv superioara a setului trebuie sa ordoneze datele in intervalul 0-255.Pentru a desemna un constructor,expresia care desemneaza tipul de data din set se va scrie intre paranteze drepte.Exemplu: ['0'...'9'].Daca se utilizeaza doar paranteze drepte( adica [ ] ),atunci setul de date este gol,adica este com- patibil cu orice tip de data. Exemple: var ZiLucratoare=(Luni,Marti,Miercuri,Joi,Vineri); Caracter=set of Char; Digit= set of 0..9; Seturile de date pot fi si constante,caz in care pentru declararea lor se vor utiliza exclusiv numai constante. Exemple: const Digiti= [ 0,2,4,6,8 ] Litere= ['A','E','I','O','U'] Seturile de date astfel formate,formeaza multimi din date de ace- lasi fel,cu care se pot face operatiile permise pentru multimi. EXEMPLU: program set1; uses WinCRT; var Par,Impar,Numere,x: set of 0..10; begin Par:=[0,2,4,6,8]; Impar:=[1,3,5,7,9]; Numere:=Par+Impar; x:=[7]; if (Par-x)=Par then Writeln('x nu este un numar par'); if (Impar-x)<>Impar then Writeln('x este impar'); if (Numere-x)<>Numere then Writeln('x este mai mic decat 10); end. Datele din multimi nu pot fi preluate direct cu Writeln(),dar se pot utiliza diverse procedee de citire a datelor prin combinarea de rutine care verifica setul de date acceptat pentru set of... string -este un tip de date destinat pentru gruparea caracterelor de tip ASCII.Un sir de caractere de tip string poate fi de tip variabila,caz in care lungimea sa poate lua valori intre 0 si 255,sau poate fi de tip constanta,caz in care are o lungime fixa specificata prin declaratie. SINTAXA GENERALA este: string; sau: string [constant]; Pentru operatii cu siruri se pot utiliza urmatorii operatori: + = <> < > <= >= Pentru lungimea unui sir variabil se utilizeaza functia Length Pentru a atribui un sir de caractere unei variabile de tip string,textul trebuie sa fie inclus intre semne ' Exemplu: var text:string; text:='Textul dorit' Versiunea Windows contine unitatea Strings in care sunt decla- -16- rate un numar de functii speciale pentru operatii cu siruri de caractere (StrCat,StrComp,StrCopy ...etc.).Consultati aceste functii ori de cate ori scrieti un program care operaza cu siruri de caractere. EXEMPLU: program siruri1; uses WinCRT; var Nume,Prenume,Adresa,Telefon,Date:string; begin Nume:=' Ionescu '; Prenume:=' Mihai '; Adresa:= ' Str. M.Eminescu nr.10 Cluj-Napoca '; Telefon:=' 073-ION-5964 '; Date:=Nume+Prenume+Adresa+Telefon; writeln('Adresa completa este: '); writeln(Date); writeln('Doar persoana si telefonul sunt:'); writeln(Nume+Prenume+Telefon); end. Operatiile cu siruri de caractere se pot face doar in limita spatiului rezervat pentru sirul respectiv,sau in limita celor 255 de caractere pentru variabilele de tip sir.Pentru ilustrare,vezi exemplul urmator: EXEMPLU: program siruri2; uses WinCRT; var numar1:string[7]; var numar2:string[5]; const numar3:string[4]='1234'; begin numar2:='555'; numar1:=numar2+numar3; writeln(' 555 + 1234 rezulta: ',numar1); numar2:='88888'; numar1:=numar2+numar3; writeln(' 88888 + 1234 rezulta: ',numar1); writeln('numarul a fost amputat la lungimea sirului !'); end. Pentru operatii cu siruri este bine sa utilizati functiile implicite sau cele din unitatea Strings,iar in caz ca scrieti functii si proceduri,ve- rificati cu mare atentie toate variantele de operatii posibile pentru functia definita de d-voastra(atentie sa nu pierdeti date prin amputare). VARIABILE Declararea unei variabile,asociaza un identificator (numele variabilei) cu un tip de data dintre cele prezentate mai sus(tipul variabilei). Variabilele sunt de fapt arii de memorie,cu formatul compatibil cu tipul de data declarat,care se utilizeaza pentru a arhiva date care se presupune ca isi vor modifica valoarea in timpul executiei programului.Pentru a arhiva date care nu-si modifica valoarea se vor utiliza constante(prezen- tate anterior).Asadar,o variabila se caracterizeaza printr-un nume si un tip de data,la care corespund o anumita adresa de memorie si un anumit format al datelor.Adresa de memorie a unei variabile,poate fi salvata in alta variabila,denumita pointer,care va permite operatii simple de pre- luare sau modificare a datelor din memorie. -17- SINTAXA GENERALA este: var identificator,...identificator:tip de data; ... identificator,...identificator:tip de data; Daca exista mai multre variabile din acelasi tip de data,pot fi declarate in sir,separate prin virgula,cu tipul de data declarat la sfarsit. Exemplu: var x,y,x:Integer (x,y si z vor fi variabile de tip integer) Pentru ca o anumita variabila sa ocupe o anumita pozitie fixa in memorie, se poate utiliza cuvantul cheie absolute urmat de adresa de memorie.In acest caz sintaxa generala este: var Identificator:type absolute Seg:Ofs; sau: var Identificator:type absolute Variable; Adresa specificata atat pentru offset cat si pentru segment trebuie sa fie cuprinsa intre valorile $0000 si $FFFF (0 la 65,535). Variabilele de tip absolut nu pot fi declarate decat izolat. Exemple: var Vector1: Char absolute 0:0; var CrtMode: Byte absolute $0040:$0049; Variabilele de tip absolut sunt utile atunci cand utilizati anumite functii,proceduri sau rutine cu forma fixa de apelare a memoriei.Verifi- cati cu atentie adresele specificate pentru aceste variabile pentru ca sa fie accesibile la compilare si sa nu stergeti sau inlocuiti date sem- nificative.Daca nu stiti sa organizati singur memoria,este preferabil sa utilizati doar variabilele alocate automat (cele obisnuite). Cuvantul cheie var,se utilizeaza si pentru a specifica daca parametrii unei functii sunt de tip variabila.Variabilele pot fi de oricare dintre tipurile descrise anterior. Exemple: var X,Y,Z: real; I,J,K:Integer; Da,Nu:Boolean; Vector: array[1..10] of real; Nume:string[15]; Fila1: Text; Litere: set of 'A'..'Z'; Variabilele de orice tip,se utilizeaza in program atunci cand datele arhivate cu numele specificat prin identificatorul respectiv vor avea in timpul executiei programului cel putin doua valori diferite,sau atunci cand estimam ca in viitor datele respective vor primi o valoare noua. EXEMPLU: program boolean1; uses WinCRT; var x:Integer; var y:Real; var rezultat:Boolean; begin for x:=1 to 10 do begin y:=(x*x)/(x+x); if (x*x)/(x+x)>3 then rezultat:=True; writeln('x este egal cu: ',x); writeln('rezultatul ecuatiei este: ',y,' adica: ',rezultat); end; end. Variabilele de tip Boolean se utilizeaza mai ales pentru functiile care -18- returneaza o valoare de tip boolean (da sau nu ,adevarat sau fals). EXEMPLU: program boolean2 uses WinCRT; var f:file; var rezultat:Boolean; begin Assign(f,ParamStr(1)); Reset(f); rezultat:=EOF(f); writeln(rezultat); Close(f); end. Exercitiul deschide o fila fictiva f si verifica daca cursorul este la sfarsitul filei,apoi inchide fila (pentru a elibera memoria). PROCEDURI O procedura se desemneaza prin cuvantul cheie procedure urmat de un iden- tificator si reprezinta o parte din program (un modul) care efectueaza o actiune specifica sau executa un sir de operatii,cu ajutorul unor para- metrii specifici pentru procedura respectiva.Procedurile sunt forma cea mai simpla de programare modulara si au rostul de a organiza cat mai bine modul de structurare a datelor si de a simplifica foarte mult procesul de depanare a programelor (o eroare de program care afecteaza o singura pro- cedura este mult mai usor de identificat decat o eroare generala de pro- gram). SINTAXA GENERALA este: procedure identificator; sau: procedure identificator (parametrii); Dupa declararea si definirea unei proceduri,aceasta va fi activata si utilizata prin includerea intr-o instructiune (de genul:begin...end,goto, case..of...end,if...then...else,repeat...until,while...do etc.) Pentru declararea si definirea unei proceduri,dupa specificarea identi- ficatorului si a parametrilor,se va utiliza o instructiune de tip begin... end in interiorul careia se vor include toate obiectele si functiile ne- cesare pentru executia procedurii respective. EXEMPLU: procedure Scrie(X,Y:integer;S:string); var SaveX,SaveY:Integer; begin SaveX:=WhereX; Savey:=Wherey; GotoXY(X,Y); Write(S); GotoXY(SaveX,SaveY); end; Se pot declara si constante de tip procedura cu conditia ca tipul de data declarat pentru constanta respectiva sa fie o procedura: Exemplu: type Mesaj=procedure; procedure Mesaj; urmata de: const Valoare=Mesaj; begin writeln('Mesaj specific dorit'); end; -19- Se recomanda utilizarea procedurilor,atunci cand un set de operatii se va repeta de mai multe ori in cadrul unui program,sau atunci cand este nece- sara o prelucrare premergatoare a datelor(Exemplu :conversie de format), inainte de a putea fi utilizate.In general,o procedura se utilizeaza pentru a structura programul in module executabile. EXEMPLU: program procedura1; uses WinCRT; var x,y,z:Integer; procedure aleator(var x,y,z:integer); begin Randomize; z:=Random(125); y:=Random(150); x:=z-y; end; begin aleator(x,y,z); writeln('Numerele extrase sunt:'); writeln('z= ',z,' y= ',y,' si x= ',x); aleator(x,y,z); writeln('La a doua extragere:'); writeln('z= ',z,' y= ',y,' si x= ',x); end. Pe cat posibil,incercati sa structurati procedurile cat mai clar si sa le apelati cat mai evident.Daca este necesar adaugati si un mic comentariu explicativ.Un program frumos,se citeste usor,ca o poezie scrisa de Mihai Eminescu.Evitati structurile complicate si apelurile indirecte (gen pro- cedura care apleaza functie,care apeleaza alta procedura pentru a executa o alta functie...etc.) atunci cand nu sunt strict indispensabile.Procedu- rile au rostul de a simplifica cat mai mult atat munca procesorului cat si cea a programatorului.Pe cat posibil denumiti procedurile cat mai su- gestiv,astfel incat sa fie cat mai usor de recunoscut in etapele de depa- nare.Nu va complicati viata in mod inutil(nu uitati ca de cele mai multe ori,tot d-voastra o sa trebuiasca sa depanati propriile programe si apli- catii matematice). Daca se utilizeaza comanda interrrupt se pot declara si proceduri de intrerupere,caz in care registrii de procesor vor fi transferati sub forma de pseudoparametrii astfel incat sa poata fi cititi sau modificati in cadrul operatiilor executate in procedura.SINTAXA GENERALA este: procedure IntProc(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP,Word); interrupt; Acest gen de intreruperi se utilizeaza doar daca scrieti rutine in limbaj masina (directive de procesor 8086).Nu se recomanda incepatorilor,deoarece riscati sa dopati registrii cu valori sau coduri de eroare si sa blocati complet executia programului. O procedura este compusa din doua parti:declaratia procedurii (cea care cuprinde identificatorul si parametrii) si respectiv definitia procedurii (cea care cuprinde operatiile incluse intre begin...si end). Pentru ca o procedura sa poata fi executata trebuie ca atat declaratia,cat si definitia sa existe in memorie in momentul apelarii.In mod curent,dupa declaratie urmeaza imediat si definitia procedurii. -20- Exista si exceptii de la aceasta regula.Astfel definitia procedurii poate fi declarata forward (adica urmeaza in program undeva la o alta locatie), external(adica este inclusa in memorie prin alt modul,de exemplu intr-o biblioteca alocata dinamic de tip DLL) sau poate fi declarata inline, (adica contine instructiuni scrise in limbaj masina). Nu utilizati proceduri atunci cand sunt inutile.Orice declaratie din program incarca memoria de operare si scade viteza de executie.Un program este cu atat mai eficient cu cat este mai scurt si mai simplu. Exista un numar foarte mare de proceduri predefinite.Unele dintre ele sunt implicite,adica sunt incarcate automat in memorie si pot fi utilizate direct (Exemple: Dispose(),FreeMem(),New() etc.),iar celelalte sunt incluse in unitati (WinPROC etc.).Consultati cu atentie lista de functii si proceduri inainte de a declara si defini o procedura noua. Daca exista o procedura care serveste scopului propus,gata incarcata in memorie,este inutil sa declarati una noua. function -este cuvantul cheie prin care se declara o functie,adica un element de programare care calculeaza o valoare si returneaza rezultatul.Functiile se deosebesc de proceduri prin faptul ca au un anumit tip de data declarat si returneaza doar o valoare din tipul respectiv de data,in timp ce procedurile comunica cu programul prin parametrii sai si accepta orice tip de data. SINTAXA GENERALA este: function identificator: tip de data; sau function identificator(parametrii): tip de data; Functiile sunt destinate pentru a executa operatii specifice si pot returna o valoare de tip ordinal,real,string sau pointer. Pentru activarea unei functii,este necesar ca sa fie evaluata in cadrul unei expresii (Gen x=Functia1() ). Functiile se declara si se definesc la fel ca si procedurile: Exemplu: function Litere(S:string):string var I:Integer; begin for I:=1 to 15 do if (S[I] >= 'a' ) and (S[I] <= 'z') then Dec(S[I],32); Litere :=S; end; Adica functia are un parametru de tip sir de caractere si retur- neaza o valoare de tip sir de caractere,dupa ce efectueaza ope- ratiile cuprinse intre begin...si end. La fel ca si procedurile,in momentul apelarii unei functii, trebuie ca in memorie sa fie incarcate atat declaratia functiei cat si definitia.Exceptiile sau aceleasi ca pentru proceduri, adica se pot declara definitiile ca fiind: forward (apare in program la o locatie ulterioara),external(se incarca in alt modul sau DLL) sau inline(definitia este in limbaj masina). Exista un numar foarte mare de functii,atat implicite cat si incluse in unitati.Cele mai frecvent utilizate vor fi prezentate in acest manual.Verificati lista de functii inainte sa declarati o functie noua.Pe cat posibil,este bine ca functiile declarate sa fie simple,scurte si sa returneze o valoare discriminativa. -21- EXEMPLU: program functieX; uses WinCRT; var x,y,z,a:Integer; function Functie1(a:integer):Integer; begin z:=y+x; end; function Functie2(a:integer):Integer; begin z:=y-x; end; begin Randomize; x:=Random(50); y:=Random(50); writeln('Numerele extrase sunt:'); writeln('x=',x,' y=',y); if x>y then a:=Functie1(a); if x<y then a:=Functie2(a); writeln(Rezultatul obtinut este:'); writeln('x=',x,' y=',y,' z=',z,' a=',a); end. Exercitiul ofera o solutie elementara de rezolvare a unei situatii binare prin apelarea alternativa a uneia dintre cele doua functii.Observati ca rezultatul returnat pentru parametrul a este de fapt o adresa de memorie. In exercitiul prezentat mai sus,am utilizat exclusiv variabile globale. In interiorul functiilor si al procedurilor se pot declara si utiliza si constante sau variabile locale,care nu au vizibilitate decat in inte- riorul functiei sau procedurii respective (nu pot fi utilizate in afara functiei).Acest gen de variabile permite utilizarea aceluiasi identifi- cator in mai multe module de program,dar mai ales,permite importarea de proceduri si functii cu ajutorul bibliotecilor alocate dinamic-DLL,fara ca denumirea variabilelor declarate in interiorul acestora sa intre in conflict cu cele declarate de noi.In absenta acestei proprietati,ar trebui ca la importul fiecarei file DLL sa depanam programul si sa rezolvam toate conflictele de nume(identificator). Totusi,este bine ca numele utilizat atat pentru functii cat si pentru constantele si variabilele declarate in interiorul functiei sa fie cat mai discriminative si sa descrie cat mai clar principala operatie pentru care sunt destinate.In acest fel,munca viitoare de depanare sau moderni- zare a programului va fi mult mai usoara.Atunci cand este necesar,adaugati comentarii explicative.Atentie:-comentariile nu se includ niciodata in corpul functiei sau procedurii ci trebuie sa fie in afara acestora (nu se introduc intre begin...end al functiilor sau procedurilor). Foarte frecvent apar nenumarate confuzii intre parametrii functiei si valoarea returnata de functie.Pentru orice functie nou declarata,verifi- cati cu atentie valoarea returnata,pentru intregul sau domeniu.Este bine sa verificati functia intr-un miniprogram independent,si abea apoi sa o includeti si depanati in programul propriu-zis. -22- Orice program,privit in ansamblu poate fi impartit in patru paparti: 1. antetul programului (titlul) 2. interfata (este acea parte din program in care sunt declarate datele cu caracter public,adica acele date care sunt accesibile in orice loc din program) Datele declarate public pot fi unitati incluse cu uses.. constante si variabile,tipuri de date,functii sau pro- ceduri la care se include doar declaratia si forward 3.implementarea (este acea parte din program care contine corpul functiilor si procedurilor,adica definitia lor,la care se adauga date cu caracter privat,adica variabile si constante accesibile doar in interiorul procedurii res- pective. Pentru implementarea datelor se pot utiliza file si biblioteci externe importate cu uses...,etichete pentru salturi de tip goto,constante si variabile,functii si proceduri la care se adauga corpul propriu zis de in- structiuni incluse intre begin...end. 4.initializarea(este partea din program in care se includ instruc- tiunile necesare pentru initializarea datelor declarate sau,cuvantul rezervat end pentru sfarsitul initializarii Pentru exemplificare compilati si executati cele doua exemple: EXEMPLUL 1: program initk1; EXEMPLUL 2: program initk2; uses WinCRT; uses WinCRT; var i:integer; var i:integer; procedure initk; const k:integer=1; const k:integer=1; procedure initk; begin begin writeln('k=',k); k:=1; k:=k+100; writeln('k=',k); end; k:=k+100; begin end; for i:=1 to 10 do begin initk; for i:=1 to 10 do end. initk; end. In primul exemplu,constanta k este initializata doar o singura data,la prima apelare a procedurii initk,dupa care se comporta la fel ca si o variabila initializata.Programul Pascal este compatibil si cu acest gen de implementari,dar este preferabil ca variabilele si constantele sa fie declarate global,ori de cate ori este posibil si sa fie utilizate conform tipului de data,pentru a simplifica procesul de depanare.Astfel,in primul exemplu,constanta k accepta diferite valori in cursul executiei,dar la o citire superficiala a programului ne-am astepta sa pastreze valoarea cu care a fost initializata.In exemplul al doilea,constanta este declarata global,dar este reinitializata la fiecare apel al procedurii,astfel incat isi mentine valoarea constanta la fiecare ciclu al buclei for...do. O alta modalitate de initializare a datelor este cea prin care un anumit tip de data declarat de catre utilizator,este utilizat pentru a declara un alt tip de data,sau respectiv pentru a initializa o constanta cu tipul de data respectiv. -23- EXEMPLU: program initk3; uses WinCRT; type data=record an:2000..2100; luna:1..12; zi:1..31; end; const astazi:data=(an:2006;luna:6;zi:30); begin writeln(astazi.an,' ',astazi.luna,' ',astazi.zi); end. In exemplul de mai sus,am definit un tip de data de tip inregistrare si am utilizat tipul respectiv de data pentru a initializa o constanta de acelasi tip.Pentru initializarea constantei de tip inregistrare am uti- lizat un sir de declaratii de tipul: (nume_camp:constanta;...;nume_camp:constanta) Notiunile prezentate pana in prezent sunt utile pentru declararea date- lor necesare pentru etapa de precompilare a programului.Toate datele declarate in aceasta etapa(biblioteci,constante,variabile,functii si pro- ceduri) vor fi incarcate in memoria de operare a programului si formeaza ceea ce se numeste "mediul de operare".In continuare,in blocul de coduri propriu zis al programului,cuprins intre delimitatori de tipul begin... end,urmeaza siruri de comenzi,instructiuni si expresii prin care se pot apela datele din mediul de operare pentru a executa diferite operatii,in urma carora se returneaza rezultatul dorit. Prin instructiuni,se inteleg una sau mai multe operatii consecutive, grupate intr-o structura fixa si denumite special,astfel incat sa facili- teze operatiile repetitive.Principalele instructiuni predefinite sunt: atribuirea cu :=,begin...end,case..of...end,for..to...do,goto,if...then... else,inline(...),procedure call,repeat...until,while...do,with...do. := -este operatorul de atribuire.Valoarea atribuita unei variabile trebuie sa fie compatibila cu tipul de data al expresiei SINTAXA GENERALA este: variabila:=expresie Exemple: x:= y; Rezultat:=(I>0) and (I<100); A[I]:=A[I]+1; Daca expresia contine si subexpresii,acestea vor fi incluse intre paranteze rotunde,pentru a asigura precedenta operatiilor. Ambii operanzi trebuie sa fie de acelasi tip. EXEMPLU: program atribuire; uses WinCRT; var nr: integer; const text='Aria cercului este: '; var pi: real; begin nr:=7; pi:=3.141592; writeln(text,pi*nr*nr); end. -24- Operatia de atribuire se poate face si in dinamica,utilizand o instruc- tiune repetitiva.Acest gen de operatie este indicat atunci cand se uti- lizeaza rutine automate pentru alocarea unor valori. EXEMPLU: program atrib2; uses WinCRT; var Numere:array[1..10] of integer; x:integer; begin for x:=1 to 9 do begin Numere[x]:=x*x*x; writeln('x=',x,' Numere[x]=',Numere[x]); end; end; end. begin...end -sunt delimitatorii pentru corpul oricarei expresii complexe Se utilizeaza pentru a include un set de declaratii sau de instructiuni.In limbajul C si C++ sunt ilocuiti prin acolade SINTAXA GENERALA este: begin instructiune; ........... instructiune; end; Toate instructiunile cuprinse intre acesti delimitatori vor fi tratate impreuna,ca si cand car fi o singura instructiune EXEMPLU: program beginend; uses WinCRT; var x,y:integer; begin Randomize; for y:=1 to 10 do begin x:=Random(100); if x<50 then begin writeln('y=',y,' x=',x); writeln('x este mai mic decat 50'); end; end; end. Atunci cand se includ mai multe bucle begin...end,una in alta,este necesar ca fiecare bucla deschisa cu begin sa fie inchisa cu end,la sfarsitul sirului de instructiuni.Atunci cand spatiul permite,buclele pot fi inden- tate in text (ca in exemplul de mai sus),pentru a fi cat mai usor de urmarit unde incepe si unde se termina o bucla.Atunci cand este probabil ca o bucla de tip begin...end va fi apelata din nou in program,este recomandabil sa includeti si o eticheta,pe care o apelati ulterior cu goto.Daca buclele sunt foarte mari si contin un numar foarte mare de instructiuni,este bine sa faceti o schema grafica,pe hartie si sa tineti evidenta pentru fiecare bucla deschisa(cu destinatia ei probabila). -25- case...of...end -este o instructiune complexa care realizeaza selectia dintre doua sau mai multe instante posibile.Este formata dintr-o expresie (denumita selector) si o lista de instructiuni precedate de prefixul case,dintre care se va selecta cea care verifica conditia din expresie. SINTAXA GENERALA este: case EXPRESIA of case: instructiunea; ...................... case: instructiunea; end sau: case EXPRESIA of case: instructiunea; ................... case: instructiunea; else instructiunea; end Cea de a doua varianta,executa instructiunea care verifica expresia,sau daca nici una dintre instructiunile precedate de case nu verifica condi- tia din EXPRESIE,atunci executa instructiunea care urmeaza dupa else. Pentru verificarea conditiei se pot utiliza una sau mai multe constante sau marimi,separate prin virgula(Exemple: x:writeln(x) sau a:write('A') ) EXEMPLU: program selectie; uses WinCRT; var x:integer; begin Randomize; x:=Random(7); begin case x of 0:writeln('Valoare nula'); 1:writeln('numarul este 1 '); 2:writeln('2'); 3:writeln('numarul 3 '); 4:writeln('xxxxxxxxxxxxxxx 4'); 5:writeln('............... 5'); 6:writeln('0x0006'); end; end; end. for ...to si -este o instructiune repetitiva prin care instructiunea for...downto care urmeaza dupa do este executata cate o data,pentru fiecare valoare cuprinsa in intervalul specificat intre for... si to... SINTAXA GENERALA este; for var:=LIMITA1 to LIMITA2 do instructiunea; sau: for var:=LIMITA1 downto LIMITA2 do instructiunea In versiunea a doua,LIMITA1 este valoarea maxima iar LIMITA2 cea minima. -26- Pentru ambele variante,instructiunea va fi repetata pentru fiecare ele- ment cuprins intre LIMITA1 si LIMITA2,cu diferenta ca in prima varianta executia se face incrementand cu 1 valoarea pentru LIMITA1 pana cand ajunge la LIMITA2,iar in varianta a doua executia decrementeaza valoarea pentru LIMITA1 pana cand ajunge la LIMITA2. EXEMPLU: program bucla1; uses WinCRT; var x:integer; var y:real; begin far x:10 downto 1 do begin y:= x/3.14; writeln('x=',x,' y=',y); end; end. Pentru exercitii de incrementare vezi exemplele anterioare. Variabilele utilizate pentru LIMITA1 si LIMITA2 trebuie sa fie ordinale (adica sa poata fi incrementate sau decrementate cu o unitate). Fiecare ciclu al buclei poate executa mai multe instructiuni,cu conditia ca acestea sa fie incluse intre begin...end. goto -este instructiunea de salt la o anumita eticheta. SINTAXA GENERALA este: goto label; Instructiunea transfera executia programului la nivelul liniei de cod specificata prin eticheta (label). Pentru a saltul sa poata fi efectuat,este necesar ca eticheta specificata sa fie in interiorul aceluiasi bloc de date ca si instructiunea prin care se face apelul.Nu se poate face saltul dintr-o procedura sau functie in programul principal,sau intr-o alta functie sau procedura(nu se poate face salt in afara functiei sau procedurii). EXEMPLU: program goto1; uses WinCRT; var x:integer; label a1; begin Randomize; a1: x:=Random(10); writeln('x=',x); if x<6 then goto a1; end. Efectuarea de salturi in program,permite procedee complexe de programare, dar implica si un anumit risc.Daca conditia de efectuare a saltului nu este modificata prin reexecutia fragmentului respectiv de program,atunci se realizeaza ceea ce se numeste o bucla infinita si programul repeta la infinit secventa respectiva (calculatorul trebuie oprit).Verificati cu atentie orice instructiune goto,astfel incat sa genereze un rezultat interpretabil,care sa permita iesirea din bucla (nerespectarea conditiei). -27- if...then...else -este o instructiune de selectie care specifica o anu- mita conditie ce trebuie indeplinita pentru ca instructiunea care urmeaza dupa then sa fie executata.Else este optional si adauga o alta instructiune ce va fi executata doar in cazul in care conditia specificata prin if nu este respectata. SINTAXA GENERALA este: if EXPRESIE then INSTRUCTIUNE1 else INSTRUCTIUNE2 Expresia trebuie sa fie de tip Boolean,adica,prin evaluarea ei sa rezulte o variabila booleana True sau False(conditia este adevarata=True sau falsa=False).Daca rezultatul returnat este True se executa INSTRUCTIUNE1 iar daca este False se executa INSTRUCTIUNE 2 (sau nu se executa nimic,daca lipseste clauza else...).Se poate utiliza izolata,se se pot grupa serii de instructiuni if...then,sub forma de proceduri,pentru a realiza filtre de selectie a datelor sau algoritmi logici. EXEMPLU: program if_then1; uses WinCRT; var x,y,z,w:byte; begin Randomize; for w=1 to 10 do begin z:=Random(60); x:=WhereX; y:=WhereY; if z<30 then Gotoxy(z,z); if z>30 then Gotoxy(z-x,z-y); writeln('TEXT ',w); end; end. Exercitiul grupeaza si trei functii simple din WinCRT utilizate pentru deplasarea cursorului.Incercati sa utilizati cele trei functii (Gotoxy, WhereX si WhereY) pentru a scrie un tabel cu patru linii si patru coloane. inline -este instructiunea care permite includerea de coduri scrise in limbaj masina,direct in program. SINTAXA GENERALA este: inline (data/data/...data) Inline poate fi utilizata atat ca instructiune cat si sub forma de comanda (cu acelasi rezultat) in interiorul unei functii sau proceduri.Se utilizeaza mai ales pentru identificatorul unei con- stante sau variabile la care se poate adauga o constanta care specifica adresa de memorie.Elementul inclus prin inline va genera in program un caracter de tip Byte,daca este o constanta cu va- loare cuprinsa intre 0 si 255,sau va genera un word (2 bytes) daca valoarea constantei sau variabilei este mai mare decat 255.Se pot utiliza si operatorii < si > pentru a specifica expres tipul de caracter generat: < pentru a genera un byte sau > pentru a genera un cuvant (word=2 bytes).Nu se recomanda incepatorilor. Instructiunea inline este foarte utila in caz aveti gata scrise -28- rutine in limbaj de asamblare sau in cod masina si doriti sa le intro- duceti in program.Pentru rutinele scrise in limbaj de asamblare se poate utiliza si instructiunea asm. Nu incercati sa experimentati aceasta instructiune "dupa ureche", deoarece o eroare mica poate genera disfunctionalitati mari de program. procedure call -este apelul unei proceduri.Se utilizeaza pentru a pune in executie procedura specificata (care a fost declarata si definita anterior). SINTAXA GENERALA este: identificator; Pur si simplu,se specifica identificatorul procedurii,fie direct fie in cadrul unei expresii mai complexe in care este operand. EXEMPLU: program proced2; uses WinCRT; var x,y,z:Integer; procedure cub; begin y:=x*x*x; end; begin Randomize; for z:=1 to 10 do begin x:=Random(15); cub; writeln('x=',x,' y=',y); end; end. In exercitiul de mai sus,procedura cub este apelata de zece ori consecutiv in cadrul buclei for...do. repeat...until -este o instructiune iterativa in care instructiunea ce urmeaza dupa repeat este repetata de atatea ori,pana cand prin evaluarea expresiei ce urmeaza dupa until se returneaza True (adica pana cand conditia specificata prin until se verifica). SINTAXA GENERALA este: repeat instructiune; instructiune; ....... instructiune; until EXPRESIE; Daca expresia este validata la prima executie,ciclul de repetitii se intrerupe. Aceasta instructiune poate genera bucle cu executie infinita,daca prin executia listei de instructiuni dintre repeat si until nu se generaza o valoare care se valideze conditia din EXPRESIE. Verificati cu atentie aceasta instructiune,mai ales atunci cand contine un numar mare de operatii cu rezultat greu de anticipat. Eventual,verificati instructiunea intr-un miniprogram separat, inainte de a o introduce in program.In caz de eroare,pentru depa- nare,executati bucla pas cu pas si verificati valoarea returnata. -29- EXEMPLU: repeta1; uses WinCRT; var x:Integer; begin repeat x:=x+1; writeln('x=',x); until x=15; end. while...do -este tot o instructiune conditional repetitiva in care se utilizeaza o expresie pentru a controla repetarea sau intre- ruperea ciclului de repetitii a unei instructiuni sau a unui set de instructiuni. SINTAXA GENERALA este: while EXPRESIE do INSTRUCTIUNE Instructiunea va fi repetata atat timp cat evaluarea expresiei nu generaza valoarea True (nu valideaza conditia). Pentru precizarea conditiei trebuie sa se utilizeze o expresie de tip Boolean,care generaza un rezultat de tip True/False. Este extrem de utilizata,mai ales pentru a cauta o anumita data, intr-o arhiva,sau intr-un fisier,etc.Pentru a nu genera o bucla infinita,este necasar ca evaluarea expresiei sa poata valida conditia impusa,sau in caz contrar sa existe o rutina de iesire fortata din bucla (Exemplu: daca informatia cautata nu este in arhiva verificata,conditia nu poate fi validata si este necesara o rutina de iesire automata din bucla). EXEMPLU: program while_do; uses WinCRT; var x:Integer; begin Randomize; while x<50 do begin writeln('x=',x); x:=Random(80); end; end. Ori de cate ori utilizati aceasta functie,este bine sa va asigurati ca la un moment dat,conditia specificata in EXPRESIE va fi verificata.In caz ca nu puteti fi sigur de acest lucru(de exemplu cautati un cuvant intr-o baza de date necunoscute),este bine sa introduceti si o limita de timp in conditia din expresie(Exemplu: while x='Data X' OR timp=T+200 secunde). with -este o metoda prescurtata de referire la campurile unei inregis- trari,sau la campurile unui obiect. SINTAXA GENERALA este: with var,var,...var do INSTRUCTIUNE; In instructiunea care urmeaza dupa do,campurile din inregistrarile incluse in obiectele specificate prin var,pot fi accesate direct, folosind doar numele campului,fara precizarea inregistrarii din care face parte.Acest gen de proprietate,la nivel de obiecte se numeste "mostenire" si a stat la baza organizarii obiectelor in -30- biblioteci (respectiv in clase pentru limbajul C++). Cu ajutorul acestei instructiuni,putem sa ne folosim de una sau mai multe date de tip inregistrare,pentru a executa o anumita operatie. Astfel,pentru a introduce date intr-o integistrare declarata: EXEMPLU: program with_do; uses WinCRT; var persoana:record nume,prenume:string; varsta:integer; end; var pers2:record adresa:string; end; begin with persoana,pers2 do begin nume:='Ionescu'; prenume:='Ion'; varsta:=23; adresa:='Str. Unirii nr.22'; end; writeln(persoana.nume); writeln(persoana.prenume); writeln(persoana.varsta); writeln(pers2.adresa); end. Cu o singura comanda am introdus date in doua inregistrari.In mod similar se pot construi algoritmi de actualizare automata a datelor din fisiere. In mod similar,se pot utiliza datele dintr-o inregistrare,pentru a executa o operatie oarecare: EXEMPLU: program with_do2; uses WinCRT; var Date:record Numar:integer; Adresa:string; end; var Rezultat,x:Integer; begin for x:=1 to 10 do begin date.Numar:=x; with Date do Rezultat:=Numar*Numar*Numar; writeln('Rezultat=',rezultat); end; end. Observati ca nu este necesar sa utilizez toate campurile de date din inre- gistrarea specificata cu with,ci doar cele de care este nevoie. Acest gen de operatii,fac deliciul programatorilor,mai ales atunci cand sunt grupate in rutine automate,care scutesc foarte mult din munca ope- ratorilor de date (Exemplu: fisiere de date care se actualizeaza automat). -31- COMENZI In afara de instructiuni,limbajul Pascal recunoste si o serie de comenzi predefinte.Acestea sunt: absolute,assembler,export,external,far,forward, index,interrupt,near,private,public,resident si virtual.Majoritatea lor opereaza cu proceduri sau asupra lor,motiv pentru care se numesc si comenzi de procedura (Procedure Directives).Nu sunt cuvinte cheie,adica pot fi redefinite la dorinta expresa a utilizatorului,dar acest lucru nu este de dorit,deoarece programele scrise cu comenzi redefinite nu vor mai fi compatibile cu cele care respecta standardul de limbaj. absolute -se utilizeaza pentru a declara o variabila de tip absolut (cu adresa fixa declarata-vezi VARIABILE) assembler -se utilizeaza pentru a introduce in program proceduri scrise in limbaj de asamblare,fara a mai utiliza begin...end export -se utilizeaza pentru a exporta o procedura.Exportul se poate face fie prin fortarea unui apel de tip FAR CALL,fie prin generarea unei proceduri speciale doar pentru intrarea si iesirea datelor din program (procedura de import/export). Comanda export este indispensabila in bibliotecile cu alocare dinamica (DLL),pentru a putea exporta functiile si procedurile din biblioteca.Comanda export trebuie sa fie prezenta la prima declarare a functiei sau procedurii ce urmeaza sa fie exportata,nu poate fi adaugata la alt nivel prin forward. external -se utilizeaza pentru a importa proceduri sau functii scrise in limbaj de asamblare.Daca la declararea unei proceduri sau functii se adauga comanda external,aceasta semnifica faptul ca procedura respectiva este definita intr-o biblioteca externa de tip DLL,de unde va fi importata.Comanda external tine loc de definitie a procedurii sau functiei(la alocarea dinamica a bibliotecii DLL se va incarca in memorie definitia pentru procedura respectiva care in biblioteca DLL figureaza "export") far -este comanda prin care se specifica modul de apel al memoriei de tip FAR CALL,prin care se pot apela si date din memoria extinsa (din afara stivei de memorie rezervata programului). De exemplu,toate procedurile definite in unitati (WinCRT etc.) sunt declarate FAR,pentru a putea fi apelate din afara unitatii (din alte unitati).Acelasi rezultat se obtine si cu directiva de compilare {$F+} forward -este comanda prin care o procedura poate fi declarata fara sa fie definita.Dupa declararea comenzii forward,procedurile si functiile respective pot fi apelate de catre alte functii, pentru ca crea bucle recursive,chiar daca definitia procedurii sau a functiei urmeaza sa fie introdusa in program la un alt nivel.Este obligatoriu sa se adauge si definitia procedurii, sau functiei,indiferent unde,dar inainte de executia progra- mului. index -se utilizeaza pentru a indexa procedurile si functiile expor- tate.Sintaxa este: index+o valoare de tip integer 1-32767. Procedurile indexate vor fi ordonate in functie de numarul respectiv iar cele neindexate vor primi automat un numar . EXEMPLU: procedure ImportOrdinal; external 'TEST1' index 5; -32- interrupt -este comanda prin care se pot introduce proceduri de intre- rupere (care salveaza valorile actuale ale registrilor de procesor,astfel incat programul sa poata fi reluat de la nivelul la care a fost intrerupt). EXEMPLU:procedure IntProc(Flags,CS,IP,AX,BX,CX,DX,SI,DI); near -este comanda prin care se specifica apelul la memorie de tip restrans (exclusiv in cadrul stivei de date a modului respectiv) Toate procedurile declarate in program,sau in etapa de implemen- tare sunt de tip near (nu sunt vizibile in afara programului si nu pot fi apelate din alte module sau din alte programe. private -se utilizeaza pentru a restrange vizibilitatea datelor declara- te strict la modulul in care au fost declarate.In interiorul modulului in care au fost declarate,datele de tip private se comporta la fel ca si cele declarate public,dar in afara modulului,datele de tip private nu sunt vizibile.Exemplu: datele din interiorul unui obiect declarate private pot fi utilizate doar in interiorul obiectului respectiv in timp ce datele declarate public,pot fi apelate si utilizate si in interiorul altui obiect.Se utilizeaza de exemplu,pentru a putea utiliza acelasi identificator,de mai multe ori,in obiecte diferite. public -se utilizeaza pentru a specifica faptul ca datele respective nu au vizibilitate restrnsa,ci pot fi apelate si din afara modulului in care au fost declarate.Datele declarate public, nu au nici un fel de restrictii de vizibilitate. In interiorul obiectelor,atat public cat si private sunt cuvinte cheie (semnificatia lor nu poate fi redefinita). rezident -se utilizeaza impreuna cu export,pentru exportul procedurilor si are ca rezultat mentinerea in memorie a datelor respective. Atunci cand o biblioteca DLL va fi apelata in mod repetat pentru a exporta o anumita procedura,se poate utiliza comanda rezident, astfel incat procedura respectiva ramane incarcata in memorie si se scurteaza timpul de executie a operatiei (altfel,procesor- ul trebuie sa sorteze din nou toata biblioteca,sa identifice procedura si sa o realoce dinamic in memorie). virtual -este o comanda utilizata la declararea metodelor dintr-un obiect O metoda care este declarata virtual realizeaza o legatura vir- tuala intre metoda respectiva si expresia din program care o apeleaza.Legatura virtuala se realizeaza in momentul compilarii, dar executia propriu zisa va avea loc doar la un moment ulterior din timpul de executie al programului.Acest procedeu este extrem de util atunci cand in obiecte diferite exista metode diferite dar care au fost declarate cu acelasi identificator.Prin adauga- rea comenzii "virtual",in momentul compilarii se va face legatu- ra automata dintre metoda respectiva si expresia din care a fost apelata si se va elimina riscul de a apela o alta metoda din alt obiect,care are acelasi identificator.In lipsa aceste clauze procesorul va cauta identificatorul dupa principiul proximitatii Pentru declararea unei metode virtuale,dupa punct si virgula se adauga comanda virtual si un nou punct si virgula. EXEMPLU: procedure Metoda1(param1,param2:Integer);virtual; -33- OPERATORI Sunt caractere utilizate pentru a specifica operatiile ce au loc in cadrul unei expresii.Orice expresie,in termeni generali este formata din operanzi (identificatori ai tipurilor de date) si operatori (caracterele care in- tica tipul de operatii din expresie. Limbajul Pascal recunoaste urmatoarele tipuri de operatori:operatori arit- metici unari si binari,operatori booleeni,operatori logici,operatori Pchar operatori relationali,operatori pentru liste si siruri de date si opera- torul @. Operatorii aritmetici binari sunt: OPERATOR OPERATIE TIPUL OPERANZILOR TIPUL RETURNAT + suma integer,real integer,real - scadere integer,real integer,real * inmultire integer,real integer,real / impartire integer,real integer,real div impartire int integer integer mod restul impartirii integer integer Operatorii aritmetici unari sunt: + semn pozitiv integer,real integer,real - semn negativ integer,real integer,real Pentru operatorii de tip ordinal se aplica urmatoarele reguli: 1.-daca ambii operanzi sunt de tip integer,rezultatul va fi de tip integer 2.-daca ambii operanzi,sau doar unul singur dintre operanzi,sunt de tip real,atunci rezultatul returnat va fi de tip real 3.-rezultatul returnat de operatorul / (impartire) este intotdeauna de tip real (chiar daca ambii operanzi sunt de tip integer).Daca impartirea se face prin zero,rezulta o eroare. 4.-diviziunea prin div,returneaza o valoare rotunjita spre zero a rezul- tatului obtinut.Daca se solicita diviziunea prin zero rezulta eroare. 5.-impartirea cu rest prin mod,returneaza restul impartitii.Impertirea prin zero returneaza eroare. Operatorii booleeni sunt: OPERATOR OPERATIE TIP OPERANZI TIP RETURNAT not negatie Boolean Boolean and logic si Boolean Boolean or logic si Boolean Boolean xor logic xor Boolean Boolean Operatorii logici sunt: not negatie bitwise integer integer and si bitwise integer integer or sau bitwise integer integer xor xor bitwise integer integer shl salt stanga integer integer shr salt dreapta integer integer Prin xor se specifica sau exclusiv,iar operatiile de tip bitwise sunt operatiile efectuate la nivel de bit,in reprezentarea binara a datelor. Exemplu: xor (sau exclusiv bitwise) compara bitul al treilea din primul operand cu bitul al treilea din cel de al doilea operand si efectueaza operatia xor,dupa care returneaza rezultatul obtinut. -34- Operatorii pentru pointerii PChar (se incarca cu comanda compilare {$X+} ) Singurele operatii efectuate asupra pointerilor sunt cele de adunare sau scadere prin operatorii + si -,prin care se modifica adresa spre care este orientat pointerul respectiv(In limba engleza "to point" inseamna a arata cu degetul,deci un pointer arata adresa unei variabile). Exemplu: pentru doi pointeri P si Q de tip PCahr,si o valoare de tip word denumita I,sunt posibile urmatoarele operatii: P + I Adauga I la offsetul pointerului P I + P idem P - I Scade valoarea I din offsetul lui P P - Q Scade offsetul lui Q din offsetul lui P Prin modificarea adresei,pointerul va fi orientat spre datele de la noua adresa.Astfel,dupa P + I,pointerul va fi orientat spre datele care se gasesc in memorie dupa I caractere fata de adresa initiala. Operatia de scadere a pointerului Q din P este posibila doar in cazul in care ambii pointeri sunt orientati spre aceeasi arie de memorie,dar spre date diferite.In caz ca cei doi pointeri sunt orientati spre arii diferite de memorie,rezultatul returnat va fi nedefinit. Exemplu: daca o arie de memorie contine 20 de elemente si P este orientat spre elementul 17 iar Q este orientat spre elementul 10,prin efectuatea operatiei P - Q ,rezultatul returnat va pointa elementul 7 din arie. Operatorii relationali OPERATOR OPERATIE TIP RETURNAT TIPUL OPERANZILOR ACCEPTATI = egal Boolean operanzi simpli,pointer,set,string <> nu este egal Boolean operanzi simpli,pointer,string < mai mic Boolean operanzi simpli,string,PChar > mai mare Boolean operanzi simpli,string,PChar <= mai mic sau egal Boolean operanzi simpli,string,PChar >= mai mare sau egal Boolean operanzi simpli,string,PChar <= subset din Boolean liste de tip set types of >= superset al Boolean liste de tip set types of in membru al Boolean Operand stg: orice tip ordinal T Operand dr.:orice lista compatibila Operatorii pentru liste de date (set of...) sunt: + uniune pentru liste de date compatibile - diferenta pentru liste de date compatibile * intersectie pentru liste de date compatibile Rezultatul acestor operatii este similar cu cel al operatiilor cu multimi si respecta urmatoarele asertiuni logice: 1. o valoare ordinala C se gaseste in A+ B doar daca C este in A si in B 2. valoarea ordinala C este in A-B doar daca C este in A si nu este in B 3. valoarea ordinala C este in A*B doar daca C este continut in ambele Toate operatiile cu liste de date de acelasi fel,respecta logica opera- tiilor cu multimi de elemente de acelasi fel. Operatorii pentru siruri de caractere: Singurul operator acceptat este : + (adunare prin concatenare).Daca sirul rezultat este mai lung de 255 de caractere,va fi tunchiat dupa caracterul 255.Concatenarea nu este compatibila cu date de tip Char sau packed string (adica arii de date formate din siruri de caractere). -35- Operatorul @ ("at"): @ -este operatorul cu ajutorul caruia se poate crea un pointer pentru o anumita variabila.Operanzii pot fi variabile,proceduri sau chiar functii(prin identificatorul acestora).Rezultatul returnat va fi pointerul format,orientat spre adresa variabilei pointate.Este un operator unar. EXEMPLU: program pointer7; uses WinCRT; var nume:string; point1:^string; begin nume:='Ionescu Ion' point1:=@nume; writeln(point1^); end. Observati ca pointerul a preluat adresa variabilei.O aplicatie foarte simpla si utila a pointerilor este atunci cand in obiecte si proceduri diferite avem variabile declarate cu acelasi nume,dar cu valori diferite. Pentru a referi una dintre acestea in mod repetat,cel mai simplu este sa se creeze un pointer si apoi sa se apeleze pointerul pentru a returna valoarea variabilei respective(ca in exemplul de mai sus). Precedenta operatorilor Atunci cand intr-o expresie exista mai mult de un singur operator,ordinea de executie va fi determinata de prioritatea cu care se va executa fiecare dintre operatori,fenomen care poarta numele de precedenta.Operatorii limbajului Pascal au urmatoarea precedenta (ordine de prioritate): OPERATOR PRECEDENTA CATEGORIE @ not cea mai mare operatori unari */div mod secundari operatori multipli and shl shr idem idem + - or xor tertiari operatori de sumatie = <> < > quaternari operatori relationali <= >= in idem idem Regulile pentru precedenta operatorilor sunt urmatoarele: 1.Un operand situat intre doi operatori cu precedenta diferita va fi executat de catre operatorul cu precedenta cea mai mare (prioritar). 2.Un operand situat intre doi operatori cu aceeasi precedenta va fi exe- cutat de catre operatorul situat la stanga sa. 3.Expresiile situate intre paranteze sunt evaluate si executate,dupa care rezultatul este operat ca si cand ar fi un singur operand. Atunci cand toti operatorii au aceeasi precedenta,in mod normal operatiile vor fi executate de la stanga la dreapta,dar in unele situatii,compila- torul va rearanja expresia astfel incat codul generat sa fie cat mai usor de procesat. Pentru ca o expresie sa poata fi executata este necesar ca toti operatorii din expresie sa fie compatibili cu tipul de data al operanzilor pe care-i executa. -36- Este bine sa nu se exagereze cu numarul de operatii incluse intr-o expre- sie,pentru a evita fenomenul de supraincarcare a operatorilor.Asftel, fiecare tip de procesor dispune de un anumit numar de registri in care salveaza valorile cu care lucreaza,pentru a putea executa operatii (indi- ferent de precedenta lor).Daca numarul de operatii simultane depaseste numarul de registri,exista riscul de a pierde o parte din operatori iar expresia va fi executata doar partial,fara ca la compilare sa se semnaleze o eroare.In acest caz,aceeasi expresie va determina un rezultat diferit in functie de tipul de procesor utilizat.Pentru a evita acest fenomen, este bine sa nu utilizati expresii cu mai mult de patru operatori,sau in caz contrar,este bine sa cunoasteti arhitectura procesorului sau sa utilizati functii care impart expresia si salveaza valorile intermediare in memoria de operare extinsa,etc... Pe cat posibil,utilizati expresii cat mai simple si cat mai clare. Orice expresie complexa poate fi scrisa sub forma de sir de expresii secventiale.Pe cat posibil,evitati sa utilizati in aceeasi expresie mai multi operatori si operanzi cu tip de data diferit (chiar daca sunt com- patibili).Pentru expresiile complexe,este bine sa adaugati si un comen- tariu explicativ(care sa fie util la o eventuala depanare). Constructia unei expresii,este asemanatoare cu un joc de puzzle,sau de scrabble.Trebuie sa tineti cont de fiecare element care formeaza expresia, dar si de rezultatul pe care il va produce asupra memoriei.Pot exista expresii perfect corecte,compatibile si executabile,dar care fragmenteaza memoria de asa maniera incat intarzie enorm de mult executia fiecarei operatii,doar pentru a putea identifica datele cu care lucreaza. CUVINTELE REZERVATE (cuvinte cheie) Sunt cuvinte cu semnificatie fixa.Nu pot fi redefinite de catre pro- gramator si au aceeasi semnificatie in orice program sau aplicatie.Pot fi scrise atat cu litere mici cat si cu majuscule,sau cu combinatii ale acestora.Impreuna cu operatorii,formeaza elementele fixe ale limbajului. Cuvintele rezervate nu pot fi utilizate in program de cat cu semnificatia lor predefinita (nu pot fi utilizate pentru formarea de identificatori,sau pentru denumirea functiilor si a procedurilor etc.).Cuvintele rezervate sunt: and,asm,array,begin,case,const,constructor,destructor,div,do,downto, else,end,exports,file,for,function,goto,if,implementation,in,inherited, inline,interface,label,library,mod,nil,not,object,of,or,packed,procedure, program,record,repeat,set,shl,shr,string,then,to,type,unit,until,uses,var, while,with,xor (versiunea Borland Pascal for Windows 7.0 /1992 ). Semnificatia impilcita a cuvintelor rezervate este urmatoarea: and -operator logic (si) asm -delimitator pentru rutinele scrise in assembler ( asm...end) array -tip de data (arii de date) begin -delimitator pentru expresiile complexe (begin...end) case -face parte din instructiunea case...of...end const -se utilizeaza pentru declararea constantelor constructor -este o metoda de initializare pentru obiectele care contin si metode virtuale.Constructorul realizeaza legatura dintre obiect si tabela de metode virtuale (codul adresei de memorie pentru metoda virtuala ce urmeaza sa fie utilizata). -37- destructor -este o metoda speciala utilizata pentru a elibera stiva de obiectele alocate dinamic (cu ajutorul constructorilor). Pot fi utilizate si pentru diverse operatii de curatare a memoriei. div -este operator (diviziune intregi) do -este utilizat in instructiunile while...,for... si with... downto -este utilizat in instructiunea for...downto... else -este caluza optionala din instructiunea if... end -este delimitaor pentru begin,case,record,object si asm exports -este clauza care specifica o functie sau procedura exportabila Poate include si clauzele: index-indexeaza procedura exportabila cu un numar integer 1-32767 name-specifica numele utilizat pentru exportul procedurii.In lipsa unui nume,procedura va fi exportata cu prin identificatorul sau original care va fi convertit la majuscule rezident-informatiile marcate cu rezident raman in memorie atunci cand se incarca biblioteca DLL (pot fi reapelate). file -este tip de data (fila ) for -face parte din instructiunea for...to...do function-se utilizeaza pentru declararea functiilor goto -este instructiune de salt in program if -face parte din instructiunea if...then...else implementation-desemneaza partea din program in care se fac declaratiile complete ale functiilor si procedurilor (corpul functiilor si al procedurilor).Este partea privata a unei unitati (program).Toate declaratiile facute in acest modul pot fi utilizate doar in cadrul modulului in care au fost declarate(vizibilitate =private) Daca in partea de implementare a unitatii se includ si proceduri declarate external,atunci trebuie adaugata si directiva de compi- lare {$L +numele filei} pentru a face legatura cu programul in care vor fi apelate. in -este operator relational (membru al unei multimi) inherited-se utilizeaza pentru a desemna ancestorul obiectului pentru o anumita metoda dintr-un obiect care mosteneste un alt obiect.Nu se poate utiliza pentru metodele unui obiect care nu are ancestor. inline -se utilizeaza pentru a introduce coduri masina interface-este partea publica a unei unitati (program).Determina ce anume este vizibil si accesibil pentru intregul program,sau pentru alte programe care utilizeaza unitatea respectiva.Este partea din pro- gram in care se declara constantele,variabilele,tipurile de data, functiile si procedurile.Incepe dupa cuvantul cheie interface si se termina la cuvantul cheie implementation label -se utilizeaza pentru introducerea de etichete (pentru salt goto) library-desemneaza o biblioteca alocata dinamic DLL( inlocuieste "program") O biblioteca DLL se scrie ca un program oarecare dar contine pe prima linie cuvantul cheie library in loc de program,care va fi utilizat pentru a adauga extensia .DLL la fila executabila. mod -este operator (impartirea cu rest) nil -este pointerul NULL,care nu pointeaza nimic(nu are tip de data) not -este operator unar (NU logic) object -este tip de data (obiecte ) -38- of -se utilizeaza pentru array...,set...,case.. si file...of or -este operator logic packed-se poate utiliza impreuna cu tipul de data array,dar nu are nici un efect in Turbo Pascal deoarece operatia se executa automat pentru toate ariile de date.Asigura compatibilitatea cu alte versiuni. procedure-se utilizeaza pentru declararea procedurilor program-contine titlul programului (prima linie din program) record -este tip de data (inregistrare) repeat -face parte din instructiunea repeat...until set -se utilizeaza pentru declararea listelor ordinale set of... shl -este operator logic la nivel de bit(salt la stanga) shr -este operator logic la nivel de bit(salt la dreapta) string -este tip de data (sir de caractere) then -face parte din instructiunea if...then to -face patre din instructiunea for...to...do type -se utilizeaza pentru a declara un tip de data definit de catre utilizator prin identificatorul care urmeaza dupa type unit -unitatile de program sau la baza programarii modulare.Se utili- zeaza pentru a forma biblioteci de functii sau de date,sau pentru a fragmenta programele mari in module mai mici,care se incarca selectiv doar atunci cand sunt necesare pentru prelucrarea datelor. until -face parte din instructiunea repeat...until uses -se utilizeaza pentru incarcarea unitatilor in etapa de compilare Exemplu: uses WinCRT incarca in memorie biblioteca WinCRT var -se utilizeaza pentru declararea variabilelor while -face parte din instructiunea while...do with -face parte din instructiunea with...do xor -este operator logic (sau exclusiv) DIRECTIVELE DE COMPILARE (comenzi) Sunt comentarii cu o sintaxa speciala utilizata pentru a modifica mediul de operare al programului prin schimbarea unor caracteristici in etapa de compilare a programului.Se includ intre acolade,ca si comentariile simple dar dupa prima acolada urmeaza semnul $ si numele comenzii. Se utilizeaza pentru a seta ON sau OFF unele caracteristici ale compi- latorului,pentru a specifica unii dintre parametrii sau pentru a controla selectiv datele ce vor fi compilate din sursa. Directivele de compilare por fi grupate intr-un singur comentariul prin separarea lor cu virgule.EXEMPLU : {$F+,R+,E-,D-} Pentru setarea unei comenzi ON se utilizeaza + iar pentru OFF -. Principalele directive pentru schimbarea setarilor sunt: $A Align Data (determina alinierea dupa paritate pt.variabile/constante) $B Boolean Evaluation (extinde sau simplifica evaluarea booleana) $D Debug Information (adauga sau exclude informatiile pentru depanare) $E Emulation (emuleaza=inlocuieste coprocesorul matematic) $F Force FAR Calls (permite apelul memoriei externe) $G Generate 286 Instructions (activeaza codurile masina 80286) $I Input/Output Checking (genereaza coduri de control I/O) $K Smart Callbacks Windows (reapeleaza procedurile exportate) $L Local Symbol Information (permite depanarea identificatorilor locali) -39- $N Numeric Coprocessor (activeaza coprocesorul matematic 8087) $O Overlay Code Generation (suprapune coduri din unitati diferite) $P Open String Parametrii (parametri tip sir cu dimensiune variabila) $Q Overflow Checking (cod de control al supraincarcarii) $R Range Checking (cod de control al domeniului de valori) $S Stack-Overflow Checking(cod de control pentru supraincarcarea stivei) $T Type_Checked Pointers(controleaza tipul pointerilor creati cu @) $V Var_String Checking (controleaza tipul parametrilor de tip sir) $W Windows Stack Frame (genereaza coduri entry/exit pt.procedurile FAR) $X Extended Syntax (accepta sintaxa extinsa,adica functiile definite de utilizator pot fi apelate ca si procedurile) $Y Symbol Reference Information (genereaza informatii despre simboluri) Directivele Parametru: -specifica parametrii care afecteaza modul de compilare a programului $C Attribute -specifica atributul segmentului de cod respectiv $D Text -insera textul specificat in antetul modulului respectiv $I FileName -include fila respectiva la compilare $G UnitName -grupeaza unitatile in acelasi segment de memorie $L FileName -leaga fila respectiva de program (link file) $M StackSize -specifica parametrii de alocare a memoriei $O UnitName -plaseaza unitatea intr-o fila .OVR in loc de .EXE $R FileName -include in aplicatie o fila de resurse (resource file) $S SegSize -specifica dimensiunea segmentului pentru unitati grupate Directivele conditionale: -compilarea va fi conditionata de evaluarea unor simboluri conditionale $DEFINE -defineste un simbol conditional $ELSE -clauza alternativa pentru $IFDEF $ENDIF -incheie compilarea conditionata de $IFDEF $IFDEF -compileaza fragmentul respectiv din codul sursa,daca e definit $IFNDEF -compileaza fragmentul respectiv doar daca nu este deja definit $IFOPT -compileaza fragmentul in functie de setarea ON sau OFF $UNDEF -anuleaza un simbol definit anterior cu $DEFINE Simboluri predefinite: CPU86 -procesorul principal este din familia 8086 CPU87 -defineste coprocesorul matematic (doar daca este instalat) DPMI -indica modul de operare protejat-DOS protected mode MSDOS -indica sistemul de operare MS-DOS sau PC-DOS VER70 -indica versiunea pentru Turbo Pascal WINDOWS -indica mediul de operare Windows Utilizarea directivelor de compilare se reconada doar avansatilor,dar este bine sa puteti descifra semnificatia acestora in programele Turbo Pascal pe care le rulati,provenind din alte surse.Utilizarea acestor directive poate face programul generat incompatibil cu versiunile mai vechi de Pascal.Este bine sa nu utilizati aceste directive decat cu scop bine precizat,doar atunci cand sunt absolut necesare. -40- Bibliotecile alocate dinamic ( DLL ) In mediul de operare Windows si in modul DOS protejat,aceste biblioteci permit aplicatiilor si programelor sa utilizeze in comun o parte din coduri sau din resurse.O biblioteca DLL este de fapt un modul executabil, care contine coduri sau resurse ce pot fi utilizate si de catre alte biblioteci DLL sau de catre alte programe.Astfel,mai multe programe pot utiliza o singura fila care contine codurile necesare.In acest caz,se spune ca programele partajeaza (share) fila respectiva. Bibliotecile DLL sunt asemanatoare cu unitatile,dar deosebirea consta in faptul ca unitatile sunt incarcate in memorie in etapa de precompilare si ocupa memoria de operare in permanenta,in timp ce bibliotecile DLL sunt continute intr-o fila care este alocata si incarcata in memorie doar in momentul executiei,dupa care poate fi eliberata,pentru a elibera memoria de operare.Astfel,memoria de operare poate fi gestionata mult mai bine si cu acelasi volum de memorie se pot executa un numar incomparabil mai mare de operatii,functii si proceduri predefinite,sau se pot rula volume mult mai mare de date arhivate.Evident ca in momentul apelarii unei astfel de biblioteci,memoria de operare trebuie sa contina suficient spatiu pentru incarcarea si executarea filei.Asadar,un program poate apela succesiv un numar nelimitat de biblioteci DLL,iar in acelasi timp, mai multe programe pot apela aceeasi biblioteca DLL.Acest gen de alocare dinamica a resurselor a permis o evolutie exponentiala a volumului de operatii ce pot fi executate cu resurse hardware relativ modeste. MESAJE DE EROARE Borland Pascal genereaza doua tipuri de mesaje de eroare: 1.erori de compilare -in numar de 170,returneaza in propozitii scurte eventualele erori intalnite in program in etapa de compilare a programului Aceste erori sunt inerente in etapa de invatare a limbajului.La primele programe,va ve-ti confrunta cu zeci de astfel de mesaje de eroare,pana cand va ve-ti obisnui sa respectati standardul de limbaj acceptat de com- pilator.Nu exasperati.Corectati cu rabdare fiecare eroare semnalata,pana cand primiti unda verde: "Successfully completed".Este absolut indispen- sabil un bagaj minimal de cunostiinte de limba engleza.Prezentarea fie- carui mesaj de eroare nu-si are sensul.Mesajele sunt clare si foarte intuitive(Exemple:Line too long,Out of memory,Syntax error,Disk full etc.) 2.erori de executie -in numar de 32,semnaleaza eventualele erori generate de executia unui program care nu contine erori de compilare (Exemple: se solicita incarcarea unei file care nu exista,se efectueaza impartiri prin zero,se supraincarca stiva de memorie etc.).Erorile de executie nu contin greseli de limbaj,dar determina valori incompatibile cu standardul lim- bajului.Depanarea acestor erori este uneori destul de dificila si poate necesita executia expresiilor mari operatie cu operatie.O solutie simpla este sa preluati expresia care genereaza eroarea intr-un program mic si sa executati fiecare etapa,pana cand identificati eroarea. Erorile de executie vor fi raportate cu forma generala: Run-time error <numarul> at <adresa de memorie> ATENTIE:-un program poate contine erori si atunci cand acestea nu sunt identificate de compilator (Exemple:erori de conceptie,erori de logica). -41- FISIERE Datele introduse in program prin declararea de constante si variabile sunt volatile,adica nu sunt pastrate pe un suport fix de informatie. Pentru a putea salva datele pentru o durata nedeterminata de timp,acestea se vor arhiva in structuri de date speciale denumite fisiere si create cu ajutorul tipului de data file (de fapt sunt file,dar sa incetatenit termenul de fisiere,desi nu pot include mai multe file de tip file). Fiserele pot fi fara tip de data,cu tip de data declarat,sau fisiere de tip text.Sunt asemenatoare cu ariile de date,dar numarul de elemente pe care le pot contine este nelimitat,iar datele se pastreaza arhivate pe harddisc. Pentru realizarea unui fisier si pentru operatiile din fisiere,exista functii si proceduri predefinite,dintre care urmatoarele sunt esentiale: Append,Assign,BlocRead,BlockWrite,Close,Eof,Eol,Erase,FilePos,FileSize, Flush,IOResult,Read,readln,Rename,Reset,Rewrite,Seek,SeekEof,SeekEol, SetTextBuf,Truncate,Wrtie,Writeln. Pentru a crea un fisier se utilizeaza o variabila de tip file,care se atribuie unei file cu ajutorul functiei Assign,prin care se specifica si numele de identificare a fisierului,impreuna cu extensia. Pentru a efectua operatii in fisier,acesta trebuie deschis cu una dintre functiile Rewrite,Reset sau Append.Dupa terminarea tuturor opera- tiilor,fisierul trebuie inchis cu Close si apoi eliberat din memorie cu Flush.Stergerea definitiva a unui fisier se popate face cu Erase. Exista si doua fisiere text standard,denumite Input si Output,care pot fi utilizate pentru operatii de intrare/iesire,atunci cand nu doriti sa fragmentati memoria prin crearea unui nou fisier.Fisierul Input poate fi utilizat doar pentru operatii de citire si este asociat cu tastatura,iar fisierul Output poate fi utilizat doar pentru operatii de scriere si este asociat cu ecranul.Un exemplu simplu de fisier de tip text este: EXEMPLU: program fisier1; uses WinCRT; var Fila:Text; begin Assign(Fila,'TEST.TXT'); Rewrite(Fila); writeln(Fila,'Textul initial inclus in fisier '); Close(Fila); Append(Fila); writeln(Fila,'Textul adaugat cu Append '); Close(Fila); end. Fisierul poate fi completat ulterior in felul urmator: EXEMPLU: program fisier2 uses WinCRT; var Fila:Text; begin Assign(Fila,'TEST.TXT'); Append(Fila); writeln(Fila,'Text adaugat ulterior !'); Close(Fila); end. -42- Fisierul poate fi consultat in directorul BIN din BP din My Computer, cu un dublu clic pe fila TEST,sau poate fi apelat si citit cu un program de genul: EXEMPLU: program citeste; uses WinCRT; var F:Text; Ch:Char; begin Assign(F,'TEST.TXT'); Reset(F); while not Eof(F) do begin Read(F,Ch); Write(Ch); end; end. Pentru fisierele de tip text exista si functii la care nu este obligatorie specificarea numelui fisierului (Exemplu Read si Write).In cazul in care nu se specifica numele fisierului,se vor utiliza automat fisierele impli- cite Input si Output(Exemplu: Read(x) este echivalent cu Read(Input,x). Fisierele cu tip de data definit se realizeaza la fel,dar variabila care se atribuie prin Assign se declara cu tipul respectiv de date.Dintre fisierele cu tip de data declarat,sunt foarte utile cele care contin inre- gistrari de tip record (pot arhiva date cu tip diferit). EXEMPLU: program cont1; uses WinCRT; type cont=record nume:string; suma:real; dobanda:real; end; var F:file of cont; a:cont; stop:char; begin Assign(F,'CONT.DAT'); Reset(F); repeat writeln('introduceti numele: '); readln(a.nume); writeln('introduceti suma:'); readln(a.suma); writeln('introduceti dobanda:'); readln(a.dobanda); write(F,a); writeln('Continuati ? d/n'); readln(stop); until upcase(stop)='N'; close(F); end. Se pot introduce un numar oarecare de inregistrari complete. -43- Preluarea si prelucrarea datelor din fisier se va face cu un program de genul: EXEMPLU: program cont2; uses WinCRT; type cont=record nume;string; suma:real; dobanda:real; end; var F:file of cont; b:cont; begin Assign(F,'CONT.DAT'); Reset(F); while not Eof(F) do begin read(F,b); writeln('Numele este: ',b.nume); writeln('Suma este: ',b.suma); writeln('Dobanda este:',b.dobanda); writeln('Datoria este:',b.suma+b.suma*b.dobanda); writeln(' '); end; Close(F); end. Observati ca atat pentru scrierea dateor in fisier,cat si pentru preluarea lor am utilizat o variabila de acelasi tip cu cel al inregistrarilor din fisier (a si b).Operatiile cu fisiere poate ca par putin greoaie la prima vedere,dar permit formarea de arhive si de baze de date de dimensiuni impresionante utilizand un program format doar din cateva randuri.Practic, cu ajutorul fisierelor se pot realiza orice fel de operatii si asupra ori- carui tip de date. Pe cat posibil,nu redactati fisiere foarte mari.Pentru operatii asupra lor,memoria de operare trebuie sa contina suficient spatiu in care sa poata incarca fisierul solicitat.Atunci cand volumul de date este foarte mare,este bine sa fie impartit in mai multe fisiere,care vor fi apoi incarcate si prelucrate secvential.In sistemele de operare multitasking, fisierele mici pot fi prelucrate si in paralel,marind astfel foarte mult viteza de executie. Fiserele de tip Pascal sunt asemenatoare cu cele din C,dar au o sintaxa mai usoara iar functiile contin un numar mai mic de parametrii si nu nece- sita utilizarea unor biblioteci sau unitati speciale de functii.Fiserele de tip Pacal,pot fi compatibile cu cele din C,dar de cele mai multe ori necesita un interpretor special care sa execute o serie de conversii de date sau simboluri.Este preferabil sa nu se amestece cele doua limbaje de programare,chiar daca sunt foarte asemantoare si contin un numar destul de mare de elemente compatibile intre ele(multe elemente din C++ au fost redactate in Pascal). In plus,interfata Windows asigura un mediu protejat de executie a aplicatiior si programelor si este recomandabila mai ales pentru progra- matorii incepatori. -44- Fisierele fara tip de data declarat prezinta avantajul de a putea opera cu orice tip de date.Se declara cu: Identificator:file.Scrierea unui astfel de fisier nu ridica nici un fel de probleme,dar preluarea si in- terpretarea datelor poate fi destul de dificila,daca nu se stie exact care este formatul datelor.Din aces motiv,la deschiderea fisierului se adauga un parametru suplimentar,care indica lungimea in octeti(bytes) a fiecarei componente.Valoarea implicita este 128,dar se recomanda 1. Deasemenea,pentru citirea si scrierea datelor se recomnda utilizarea unui tampon de memorie si respectiv functiile BlockRead si BlockWrite. Exemplul urmator utilizeaza un fisier fara tip si cpoiaza un alt fisier: EXEMPLU: program copiere1; uses WinCRT; var F1,F2:file; Nr1,Nr2:Word; Tampon:array[1..2048] of Char; begin Assign(F1,'TEST.TXT'); Reset(F1,1); Assign(F2,'COPIE.TXT'); Rewrite(F2,1); writeln('Copiere...',FileSize(F1),' ...bytes'); repeat BlockRead(F1,Tampon,SizeOf(Tampon),Nr1); BlockWrite(F2,Tampon,Nr1,Nr2); until (Nr1=0) or (Nr2 <> Nr1); Close(F1); Close(F2); end. Exemplul copiaza fisierul text creat in exercitiul anterior.Pentru pre- luarea datelor din fisierul copiat se poate utiliza un program de genul: EXEMPLU: program redare1; uses WinCRT; var F1:file; Nr1:Word; Tampon:array[1..2048] of Char; x:integer; begin Assign(F1,'COPIE.TXT'); Reset(F1,1); BlockRead(F1,Tampon,SizeOf(tampon),Nr1); for x:=1 to SizeOf(Tampon) do write(Tampon[x]); end. Fisierele fara tip de data declarat confera o foarte mare libertate de miscare,dar in acelasi timp pot introduce erori de intrpretare a datelor, atunci cand preluarea datelor din fisiere se face cu un alt format decat cel cu care au fost introduse.Pentru a evita astfel de erori este bine sa utilizati doar rutine prestabilite si verificate cu atentie,inainte de a fi implementate in program.Compilatorul nu va detecta citirea cu un alt format ca pe o eroare,nici la compilare si nici la executie,motiv pentru care procesul de depanare poate fi uneori extrem de anevoios. -45- Notiunile prezentate pana acum sunt suficiente pentru a putea incepe sa scrieti programe proprii,daca sunteti un programator experimentat.Pentru incepatori,este inca nevoie de foarte mult exercitiu.Pentru ca programele d-voastra sa fie performante si usor de realizat,cel mai simplu mod este de a utiliza elementele predefinite ale programului(variabile,constante, functii si proceduri etc.) apeland unitatile standard. Prezentarea exhaustiva a tuturor functiilor si procedurilor nu face obiectul acestui manual,dar cele mai frecvent utilizate dintre ele vor fi prezentate sub forma de exercitii elementare,pantru a simplifica munca de intelegere a celor mai putin avansati.Este bine sa scrieti cat mai multe exercitii similare,sau sa grupati doua sau mai multe astfel de exercitii pentru a forma aplicatii si programe din ce in ce mai mari. UNITATEA WINCRT (Windows Cathode Ray Tube) -este unitatea standard care contine functii si proceduri destinate pentru afisarea datelor pe ecran,initializarea unei ferestre de tip text si ordonarea coordonatelor axiale pentru elementele de tip text.Este practic indispensabila.Pentru utilizarea sa,trebuie incarcata in memorie cu comanda uses WinCRT,in etapa de precompilare a programului realizat. Daca nu utilizati aceasta unitate,atunci trebuie sa specificati contextul grafic al dispozitivului utilizat pentru afisare,astfel incat functiile care utilizeaza coordonatele axiale sa poata sa ordoneze datele in functie de parametrii dispozitivului(Explicatie:-sistemul Windows permite utili- zarea unor rezolutii diferite ale ecranului,caz in care coordonatele unui pixel sunt determinate de rezolutia ecranului). Daca utilizati unitatea WinCRT,se creaza automat o fereastra implicita pentru afisarea datelor care seteaza automat contextul de dispozitiv si se pozitioneaza automat pe ecran.Daca excludeti unitatea WinCRT din exemplele prezentate anterior,ve-ti obtine un mesaj de eroare care va avertizeaza ca fila nu a fost deschisa(Runtime error 105 at....). Pentru a crea o fereastra noua,diferita de cea implicita,se poate utiliza procedura InitWinCrt,ca in exemplul urmator: EXEMPLU: program fereastra1; uses WinCRT; begin InactiveTitle:='Fereastra 1'; WindowOrg.X:=180; WindowOrg.Y:=60; ScreenSize.X:=40; ScreenSize.Y:=20; Writeln('Text scris in fereastra nou definita'); Writeln('vezi titlul!'); InitWinCtr; end. Exemplul contine pe langa functia InitWinCrt si variabilele WindowOrg si ScreenSize pe care le-am utilizat pentru definirea ferestrei.Pentru a observa efectul lor,maximizati fereastra fie din coltul drept,file din meniul ferestrei.Teoretic,variabilele definite in WinCRT sunt constante cu tip definit initializate la o valoare implicita,dar practic,pot fi utilizate la fel ca si variabilele si pot fi initializate cu alte valori decat cele implicite pentru a obtine ferestre personalizate. -46- Variabilele WinCRT sunt: WindowOrg -permite pozitionarea ferestrei pe ecran.Are sintaxa generala: const WindowOrg: TPoint = (X: ; Y: ); Valorile implicite X si Y pot fi modificate pentru a pozitiona fereasta (Exemplu: WindowOrg.X:=40 si WindowOrg.Y=40) WindowSize -determina dimensiunea initiala a ferestrei.Are sintaxa: const WindowSize: TPoint = (X: ; Y: ); Valorile implicite permit sistemului sa aleaga dimensiunea optima in contextul respectiv,dar puteti modifica valorile pentru a obtine o fereastra cu dimensiunile dorite. ScreenSize -determina inaltimea si largimea ecranului virtual din fereas- tra CRT.Are Sintaxa generala: const ScreenSize: TPoint = (X: 80; Y: 25); Valorile implicte sunt pentru 80 de coloane si 25 de linii. Puteti schimba coordonatele ecranului virtual din fereasta dupa bunul plac,cu conditia ca produsul lor sa fie mai mic decat 65520 (X*Y<65520). Cursor -contine pozitia curenta a cursorului in ecranul virtual. Sinataxa generala este: const Cursor: TPoint (X:0 ; Y:0); Pozitia (0,0) corespunde cu coltul din stanga sus.Variabila este de tip read-only si nu poate fi resetata. Origin -contine coordonatele pentru campul de tip caracter situat in coltul din stanga-sus (punctul de pornire a textului). Are sintaxa generala: const Origin TPoint = (X:0 ; Y:0 ); Este de tip read-only si nu poate fi resetata. InactiveTitle -este un pointer de tip caracter care poate fi utilizat pentru specificarea titlului ferestrei inactive.Are sintaxa: const InactiveTitle: PChar = '(Inactive %s)'; Specificatorul %s indica pozitia la care se va insera noul titlu. Auto Tracking -este o constanta de tip boolean care se utilizeaza pentru a asigura vizibilitatea cursorului.Are sintaxa generala: const AutoTracking: Boolean = True; Daca este setata cu valoarea implicita (True),atunci fereastra va fi derulata dupa fiecare operatie Write sau Writeln,astfel incat pozitia cursorului sa fie fizibila.Daca este setata cu valoarea False,atunci fereasta nu va fi derulata automat si este posibil ca textul scris sa nu fie vizibil,respectiv cursorul sa fie amplasat in fereastra la o pozitie in afara campului afisat(ecranul virtual este mai mare decat fereastra). CheckEOF -este o constanta de tip boolean care permite verificarea caracterului terminator de pagina.Are sintaxa generala: const CheckEOF: Boolean = False; Daca este setat True,atunci se va genera un marker terminator de pagina atunci cand se utilizeaza combinatia de taste Ctrl+Z. Daca este setat False(valoarea implicita) atunci combinatia de taste Ctrl+Z nu are nici un efect. CheckBreak -permite intreruperea executiei din fereatra CRT.Are sintaxa: const CheckBreak: Boolean = True; Daca este True,utilizatorul poate intrerupe executia tastand Alt+F4,Ctrl-Break,cu comanda Close sau din Control-menu box. -47- Utilizatorul poate utiliza si combinatiile Ctrl+C si Ctrl+Break pentru a intrerupe executia.Daca CheckBreak este setata False, atunci nici una dintre combinatii nu are nici un efect. WindowTitle -determina titlul ferestrei CRT.Are sintaxa generala: var WindowTitle: array[0..79] of Char; Valoarea implicita contine calea de acces la fila .EXE a pro- gramului respectiv.Pentru a schimba titlui se poate utiliza un sir oarecare si functia StrCopy EXEMPLU: StrCopy(WindowTitle,'Fereastra noua'); Incercati sa definiti o fereastra pe gustul d-voastra utilizand variabile- le de mai sus,apoi initializati fereastra si efectuati cateva operatii. PROCEDURA InitWinCrt -creaza o fereastra CRT sau initializeaza fereastra gata creata. SINTAXA: procedure InitWinCrt; Functia este apelata automat de catre Read,readln,Write sau Writeln pentru fila care a fost deschisa pe ecran.InitWinCrt utilizeaza variabilele de mai sus pentru a determina caracteristicile ferestrei(vezi exemplul de la pagina 45).In plus,procedura initializeaza fereastra,care devine activa si poate fi utilizata pentru functiile grafice din unitatea WinProcs. EXEMPLU: program desen1; uses WinCRT,WinProcs; var y,z:integer; begin InitWinCrt; y:=GetActiveWindow; z:=GetDC(y); SetBkColor(z,RGB(20,200,250)); SetTextColor(z,RGB(250,50,25)); TextOut(z,100,20,'Figuri geometrice',17); Rectangle(z,50,50,90,90); Ellipse(z,100,150,200,300); Pie(z,200,100,300,150,140,60,220,80); end. Nu uitati sa initializati fereastra implicita,mai ales daca nu utilizati si functii de scriere sau citire.Functiile grafice pot fi apelate si din obiecte de tip TWindow,dar procedeul este putin mai laborios. PROCEDURA DoneWinCrt -distruge fereastra CRT (se apeleaza pentru a termina aplicatia) SINTAXA: procedure DoneWinCrt; Apelul acestei proceduri inchide si distruge fereastra de afisare. EXEMPLU: program DoneCrt1; uses WinCrt; begin writeln('Prima fereastra CRT... Tastati Enter'); readln; DoneWinCrt; writeln('A doua fereastra CRT'); end. Al doilea mesaj nu mai poate fi afisat(fereastra a fost distrusa). -48- PROCEDURA WriteChar -scrie un singur caracter in fereastra SINTAXA este: procedure WriteChar(Ch:char); Procedura scrie un singur caracter,cel specificat,la pozitia actuala a cursorului prin apelul procedurii WriteBuf(@Ch,1).Prin gruparea intr-un algoritm se pot obtine diverse functii. EXEMPLU: program writeCH1; uses WinCRT; var x:integer; begin Randomize; for x:=1 to 500 do begin gotoxy(Random(50),Random(15)); writeChar(CHR(32+Random(50))); end; gotoXY(10,18); Writeln('Apasati orice tasta'); ReadKey; ClrScr; for x:=1 to 40 do begin gotoXY(x,10); writeChar('M'); gotoXY(40,x); writeChar('O'); end; end. FUNCTIILE WhereX si WhereY -returneaza coordonatele pozitiei actuale a cursorului SINTAXA este: function WhereX:Byte; si function WhereY:Byte; Valaorea returnata este coordonata actuala a cursorului+1. EXEMPLU: program whereXY1; uses WinCRT; var x,y,z:integer; begin Randomize; for z:=1 to 10 do begin x:=Random(40); y:=Random(20); gotoxy(x,y); writeln('Coordonatele XY sunt: ',WhereX,'/',WhereY); end; end. Puteti utiliza functiile pentru a afla coordonatele unui anumit caracter de pe ecran,sau viceversa,pentru a deplasa cursorul pe ecran la o anumita pozitie.Functiile pot fi incluse si in instructiuni conditionale de genul if x < WhereX then... etc. sau pot fi utilizate pentru a scrie datele sub forma de tabele,etc. -49- PROCEDURA AssignCrt -asociaza ecranului o fila de tip text SINTAXA este: procedure AssignCrt(var f:Text); Este foarte asemantoare cu procedura standard Assign,cu diferenta ca nu trebuie specificat nici un numa pentru fila asociata ecranului(fila nu va fi salvata pe disc).Fila de tip text nu va fi scrisa in memorie ci va fi asociata ecranului pentru editarea rapida a unor texte.In limbajul C operatiunea este echivalenta cu asocierea unui stream (flux de date). EXEMPLU: program assign1; uses WinCRT; var f:text; begin AssignCRT(f); Rewrite(f); writeln(f,'Text scris in fila atribuita ecranului'); Close(f); end. Observati ca textul apare direct pe ecran,fara sa fie necesara nici o procedura speciala de citire a datelor din fisier.Pentru salvarea datelor, cel mai simplu procedeu este sa alocati un tampon cu dimensiune potrivita, sa copiati fila in tampon si apoi sa salvati tamponul intr-un fisier fara tip de data. PROCEDURA ClrEol -sterge toate datele din linia respectiva,de la pozitia cursorului si pana la capatul liniei,fara a deplasa pozitia cursorului. SINTAXA este: procedure ClrEol; Practic,caracterele sterse sunt inlocuite prin spatii goale.Astfel,in caz ca fundalul ecranului este de orice alata culare decat negru,caracterele sterse vor fi inlocuite cu spatii goale in culoarea de fond a ecranului. Functia ClrEol este ordonata spatial relativ la coordonatele ferestrei active in care se gaseste cursorul. EXEMPLU: program ClrEol1; uses WinCRT; var text:string; x:integer; begin text:='Buna dimineata !'; writeln(text); for x:=17 downto 6 do begin gotoXY(x,1); ClrEol; gotoXY(1,4); writeln('Apasati orice tasta !'); ReadKey; end; gotoXY(1,6); writeln('S F A R S I T'); end. Incercati sa defilati un cuvant pe ecran,utilizand si functia ClrEol. -50- EXEMPLU: program ClrEol2; uses WinCRT; var text:string; x:integer; begin text:='Buna dimineata !'; for x:=17 downto 6 do begin gotoXY(x,1); writeln(text); gotoXY(x+16,1); ClrEol; gotoXY(1,4); writeln('Apasati orice tasta !'); ReadKey; end; gotoXY(1,6); writeln(' SFARSIT '); end. PROCEDURA ClrScr; -sterge toate datele din fereastra activa si deplaseaza cursorul la 0,0. SINTAXA este: procedure ClrScr; Procedura se utilizeaza pentru a sterge toate caracterele de pe ecran si pentru a deplasa cursorul in coltul din stanga sus (la pozitia 0,0 ). ClrScr este relativa la coordonatele fereastrei active. EXEMPLU: program salut; uses WinCRT; begin writeln('Buna ziua ! ... Apasati orice tasta !'); ReadKey; ClrScr; end. FUNCTIA KeyPressed -determina daca o tasta a fost activata (apasata) de la tastatura. SINTAXA este: function KeyPressed:Boolean; Functia poate fi utilizata impreuna cu ReadKey.Returneaza TRUE daca orice tasta a fost apasata sau FALSE daca nici o tasta nu a fost apasata. EXEMPLU: program KeyPress1; usesWinCRT; var x:Boolean; begin repeat begin writeln(x,' ...Apasati orice tasta'); x:=Keypressed; end; until KeyPressed; writeln(x); end. -51- PROCEDURA CursorTo -deplaseaza cursorul la coordonatele specificate SINTAXA este: procedure CursorTo(X,Y : Integer); Procedura deplaseaza cursorul la coordonatele specificate.Pozitia initiala a cursorului,la deschiderea unei ferestre este in coltul din stanga sus, adica 0,0.Dupa deplasarea cursorului,editarea textului va incepe de la noua pozitie actuala a cursorului. EXEMPLU: program cursor1; uses WinCRT; var x,y,z:integer; begin Randomize; for x:=1 to 5 do begin gotoXY(1,22); writeln('Apasati orice tasta !'); ReadKey; CursorTo(Random(60),Random(20)); writeln('Sunt aici !'); end; gotoXY(1,23); writeln(' S F A R S I T '); end. PROCEDURA gotoYX -deplaseaza cursorul la coordonatele specificate SINTAXA este: procedure GotoXY(X,Y : Byte); Procedura deplaseaza cursorul la coordonatele indicate.Este compatibila cu unitatea CRT din Turbo Pascal Dos si cu valori de tip byte. EXEMPLU: program tabele; uses WinCRT; var x,y:integer; z:char; begin for x:=1 to 10 do begin gotoxy(x*5,1); writeln('Tabel'); for y:=1 to 10 do begin gotoXY(x*5,y+2); writeln('TEXT'); end; gotoXY(20,20); writeln('Apasati orice tasta'); z:=ReadKey; clrscr; end; writeln('SFARSITUL PROGRAMULUI'); end. Pentru aplicatiile Windows este preferabila procedura CursorTo. -52- FUNCTIA ReadKey -citeste un caracter de la tastatura SINTAXA este: function ReadKey: Char; Functia returneaza un caracter,sau codul sau ASCII,fara sa afiseze pe ecran carcaterul citit de la tasatatura.Se utilizeaza pentru a initializa variabile de tip caracter,dar mai ales,pe post de functie de intrerupere, care asteapta apasarea unei taste inainte de continuarea executiei. EXEMPLU: program readkey1; uses WinCRT; var numar:char; var x:integer; begin for x:=1 to 5 do begin writeln('Apasati orice tasta:'); numar:=ReadKey; writeln('Tasta apasata este: ',numar); writeln('si are codul: ',ord(numar)); end; end. PROCEDURA ScrollTo -deruleaza o fereastra CRT pentru a afisa pozitia X,Y a ecranului virtual SINTAXA este: procedure ScrollTo(X,Y : Integer); Procedura deruleaza fereastra activa pana cand pozitia specificata prin X(nr de coloane) si Y(nr de linii) din ecranul virtual,continut in fereatra ,se deplaseaza in coltul din stanga sus al ferestrei de afisaj. EXEMPLU: program scroll; uses WinCRT; begin WindowSize.X:=20; WindowSize>y:=4; InitWinCRT; gotoxy(20,30); writeln('Text pe linia 30'); gotoxy(1,1); writeln('Text pe linia 1'); ScrollTo(19,30); end. FUNCTIA ReadBuf -citeste date de pe ecran,intr-un tampon de memorie SINTAXA este: function ReadBuf(Buffer:PChar; Count:Word):Word; Pentru ca functia sa poata fi executata este necesar ca tamponul specifi- cat prin pointerul de tip char Buffer sa contina suficient spatiu alocat. Prin Count se specifica numarul de caractere citite.La caracterele citite se adauga automat si un caracter de sfarsit de linie (a#13 si a#10). Functia returneaza numarul de caractere citite,inclusiv caracterul de sfarsit de linie (end of line) sau cel de sfarsit de fila (end of file). Tamponul va putea fi afisat pe ecran fie cu Writeln, fie cu WriteBuf. EXEMPLU: vezi WriteBuf (pe pagina urmatoare) -53- PROCEDURA WriteBuf -scrie un bloc de caractere in fereastra CRT. SINTAXA este: procedure WriteBuf(Buffer: PChar; Count:Word); Procedura scrie in fereastra,la pozitia cursorului,numarul de caractere specificat prin Count,citite din tamponul Buffer spre care este orientat pointerul de tip charater.Pointerul pointeaza primul caracter din tampon. Daca AutoTracking este setata ON,atunci fereastra este derulata astfel incat textul scris sa fie vizibil in coltul din stanga sus,dupa scrierea tamponului. EXEMPLU: program tampon1; uses WinCRT,Strings; var C:PChar; begin GetMem(C,80); Writeln('Scrieti un text format din maxim 80 de caractere:'); readBuf(C,80); Writeln('Textul introdus in tampon este:'); WriteBuf(C,StrLen(C)); end. Observati ca am utilizat si functia StrLen(C) care returneaza lungimea sirului de caractere introduse.Daca se utilizeaza WriteBuf(C,80),se vor afisa si o serie de caractere care exista in tamponul de memorie alocat, dar care nu au fost introduse de la tastatura(se scrie tot tamponul). PROCEDURA TrackCursor -deruleaza fereastra CRT astfel incat pozitia cursorului sa fie vizibila SINTAXA este: procedure TrackCursor; Procedura deruleaza fereastra CRT astfel incat pozitia cursorului sa fie vizibila in fereastra,indiferent de pozitia sa din ecranul virtual.Ecranul virtual poate fi mult mai extins decat aria afisata in fereastra activa. Procedura este extrem de utila atunci cand se lucreaza cu ferestre mici, eventual multiple,in care se introduc date in mod repetat. EXEMPLU: program tracking; uses WinCRT; var x,y:integer; begin WindowSize.X:=15; WindowSize.Y:=3; Randomize; x:=Random(75); y:=Random(50); gotoXY(x,y); write('X=',x,' Y=',y); TrackCursor; Readln; end. Executati programul de cateva ori si observati barele de defilare de pe laturile ferestrei (derularea ferestrei). Procedurile din unitatea WINCRT prezentate mai sus,pot fi combinate cu cele din SYSTEM(unitatea SYSTEM este incarcata implicit,nu necesita uses). -54- UNITATEA SYSTEM -este modulul de baza al limbajului Turbo Pascal si este implementata in toate versiunile(STSTEM.TPW pentru Windows,respectiv SYSTEM.TPP si SYSTEM.TPU pentru Dos).Contine 20 de constante(variabile initializate) si aproximativ 100 de functii destinate pentru calcule matematice,operatii de intrare-iesire,calcule matematice in virgula mobila sau alocarea dinamica a memoriei fizice.Unitatea System este incarcata automat in memorie,astfel incat functiile si variabilele predefinite in aceasta uni- tate sunt la dispozitia programatorului,in orice moment.Toate programele si aplicatiile dispun de aceasta unitate,chiar daca nu a fost declarata cu uses in etapa de procesare,sau daca nu a fost apelata nici o functie din aceasta unitate.Prezentarea completa a tuturor functiilor,nu si-a gasit locul in acest manual,dar majoritatea functiilor vor fi utilizate in aplicatiile exemplificative.Functiile System sunt simple si clare, au o sintaxa intuitiva si nu ridica probleme deosebite de implementare. Cele mai frecvent utilizate vor fi prezentate exemplificativ. VARIABILE Input Tip TEXT Este fila standard de tip text Output Tip TEXT Este fila standard de tip text CONSTANTE TIP Valoare DESCRIERE CmdLine PChar nil este un pointer spre o linie de comanda CmdShow Integer 0 este parametru pentru CreateWindow ErrorAddr Pointer nil arhiveaza adresa liniei care a generat o eroare de executie ExitCode Integer 0 contine codul erorii de executie ExitProc Pointer nil permite un mesaj de eroare personalizat FileMode Byte 2 este codul de acces pentru deschiderea unei file:0=Read only 1=Write 2=Read/Write HeapAllocFlags Word 2 semnalizeaza alocarea stivei (gmem_...) HeapBlock Word 8192 este dimensiunea blocului (4xHeapLimit) HeapError Word nil contine adresa functiei heap error HeapLimit Word 1024 este dimensiunea minima a blocului HeapList Word 0 contine lista segmentelor din stiva HInstance Word 0 contine codul handle actual HPrevInst Word 0 contine codul handle precedent InOutRes Integer 0 este tamponul utilizat de functiile I/O PrefixSeg Word 0 este segmentul de prefix al programului RandSeed LongInt 0 este samanta utilizata pentru generarea de numere aleatoare.Daca atribuiti o valoare pentru RandSeed,numerele aleatoare vor fi generate in aceeasi secventa. SelectorInc Word 0 contine valoarea de incrementare Test8086 Byte 0 identifica tipul procesorului 8086 astfel: 0=8086, 1=80286 ,2=80386 sau ulterior Test8087 Byte 0 identifica prezenta coprocesorului 8087 Variabilele si constantele declarate si definite in unitatea SYSTEM pot fi apelate sau utilizate in program in orice moment.Nu are rost sa declarati variabile noi,atunci cand sunt similare cu cele implicite. -55- Cele mai utilizate proceduri din limbajul Pascal sunt cele pentru citirea si respectiv scrierea datelor,respectiv readln,read,writeln si write. Aceste functii elementare,au o sintaxa mult mai simpla decat in limbajul C prin faptul ca accepta datele fara precizarea formatului.Aproape toate exemplele din manual contin si una dintre aceste functii,asa ca nu vor mai fi exemplificate special. PROCEDURA write -scrie una sau mai multe variabile intr-o fila SINTAXA este: procedure Write(F,V1[,V2...Vn]); unde F este fila iar V1...Vn sunt variabilele specificate.In mod parti- cular,pentru filele Input si Output (pentru comunicarea cu ecranul),numele filei poate fi omis(Exemplu: Write(Input,x) este similar cu Write(x) ) Expresiile continute in variabilele scrise cu Write trebuie sa fie de tip Char,Integer,real,string,packed string sau Boolean,iar fila specificata trebuie sa fie deschisa pentru scriere in momentul apelului. Daca procedura nu a fost executata,IOResult returneaza un cod de eroare. Spre deosebire de writeln,Write nu executa un tur de car la capatul randu- lui(nu trece automat la randul urmator). PROCEDURA writeln -este identica cu Write dar adauga si un caracter end-of-line la sfarsitul filei scrise SINTAXA este: Writeln([var T:Text;],P1[,P2...Pn]); unde T este fila deschisa pentru scriere iar P1...Pn sunt parametrii. Procedura scrie datele in fila specificata(care trebuie sa fie deschisa in momentul apelarii),dupa care adauga automat EOL (adica in momentul executiei se va executa automat si un tur de car la sfarsitul filei). PROCEDURA Read -citeste date din fila specificata SINTAXA este : procedure Read(F,V1[,V2...,Vn]); unde F este fila specificata iar V1 ...Vn sunt variabilele de arhivare. Fila specificata trebuie sa fie deschisa in momentul apelarii functiei. Daca fila este de tip string,apelul Read citeste toate caracterele din fila sau pana la prima aparitie a unui caracter EOL sau EOF,care marcheaza sfarsitul de linie sau de pagina.Daca sirul citit este mai lung decat variabila specificata pentru arhivare,atunci sirul va fi trunchiat. Dupa un apel Read,orice alt apel Read consecutiv va citi doar caracterul EOL sau respectiv EOF intalnit de primul apel si va returna un sir de lun- gime zero(un sir nul).Pentru a citi siruri de date succesive,trebuie ape- lata succesiv procedura Readln (care sare peste EOL). Daca fila este de tip numeric (integer sau real),atunci apelul Read va omite toate spatiile goale,spatiile TAB sau caracterele EOL pana la primul numar intalnit.Daca fila nu contine date in formatul asteptat,atunci se va genera un mesaj de eroare de tip I/O.Daca intr-o fila numerica se apeleaza Read in mod succesiv,al doilea Read va incepe citirea de la primul spatiu gol care urmeaza dupa primul numar citit(spre deosebire de Readln care dupa citirea numarului sare la randul urmator). Asadar,pentru citirea sirurile de caractere este mai avantajoasa procedura Readln,dar pentru numere este mai utila procedura Read. -56- PROCEDURA Readln -citeste date din fisier apoi sare la randul urmator SINTAXA este: procedure Readln([ var F: text; ] V1 [,V2, ...,Vn ]); Procedura este identica cu Read,dar dupa citirea primului bloc de date executa un salt automat la randul armator din fisier,astfel incat un nou apel al procedurii va citi datele de pe randul urmator. Atentie,prin apelarea succesiva a procedurii Readln pot fi sarite o parte din date,atunci cand exista mai multe blocuri de date pe acelasi rand. PROCEDURA Addr -returneaza adresa obiectului specificat SINTAXA este: function Addr(X):pointer; Se poate aplica pentru orice variabila,procedura sau functie.Rezultatul este un pointer orientat spre elementul specificat. EXEMPLU: program adresa1; uses WinCRT; var P:Pointer; x:Integer; begin x:=5; P:=Addr(x); writeln('Adresa pointerului este:',Seg(P),'-',Ofs(P)); end. FUNCTIA Chr -returneaza caracterul ASCII pentru codul numeric specificat SINTAXA este: function Chr(X:Byte):Char; Functia returneaza caracterul de tip ASCII asociat cu codul numeric de ordonare specificat prin X.Este inversa functiei Ord. EXEMPLU: program chr11; uses WinCRT; var x:integer; begin for x:=40 to 90 do write(chr(x)); writeln; for x:=91 to 125 do write(chr(x)); writeln; for x:=191 to 255 do write(chr(x)); end. FUNCTIA Concat -concateneaza o secventa de siruri SINTAXA este: function Concat(s1[,s2,...,sn]:String):String; Functia se poate utiliza pentru doua sau mai multe siruri,cu conditia ca fiecare paramatru declarat sa fie de tip sir de caractere.Rezultatul este cel obtinut prin concatenarea tuturor sirurilor specificate ca parametrii. Daca sirul rezultat este mai lung decat 255 de caractere,sirul va fi trun- chiat la caracterul 255.Functia este similara cu operatorul plus (+). -57- EXEMPLU: program concat1; uses WinCRT; var s1,s2,R:string; begin s1:='Prima parte din sir...'; s2:='Partea adaugata la sir(concatenata)'; R=Concat(s1,s2); writeln(s1); writeln(s2); writeln('Rezultat=',R); end. FUNCTIA Copy -returneaza un subset dintr-un sir SINTAXA este: function Copy(S:String,Index:Integer,Count:Integer):String; Functia returneaza sirul specificat prin S care se formeaza selectand un numar de caractere egal cu cel specificat prin Count,incepand de la pozi- tia caracterului specificat prin Index.Daca valoarea specificata pentru Index este mai mare decat lungimea sirului,atunci functia returneaza un sir NULL.Daca numarul de caractere specificat prin Count este mai mare decat numarul de caractere ce urmeaza dupa Index,atunci se vor returna doar caracterele existente in sir dupa pozitia Index. EXEMPLU: program copy1; uses WinCRT; var text,S:string; x:integer; begin text:='Text exemplificativ pentru functia COPY...'; for x:=1 to 20 do begin S:=Copy(text,x,x); writeln(S); end; end. PROCEDURA Dec -decrementeaza o variabila SINTAXA este: procedure Dec(var X[ ; N:Longint]); Procedura decrementeaza o variabila ordinala cu N elemente(sau 1 implicit) si este foarte utila in buclele repetitive decrementiale. EXEMPLU: program decrement1; uses WinCRT; var x,y:integer; begin x:=99; for y:=1 to 10 do begin Dec(x,7); writeln('y=',y,' x=',x); end; end. -58- PROCEDURA Delete -sterge un subset dintr-un sir SINTAXA este: procedure Delete(var S:String,Index:integer,Count:Integer); Procedura sterge Count caractere din sirul S,incepand cu pozitia Index. Daca Index este mai mare decat S,sirul ramane neschimbat.Daca Count este mai mare decat numarul de caractere care urmeaza dupa index,atunci se vor sterge doar caracterele care urmeaza dupa Count. EXEMPLU: program Delete1; uses WinCRT; var text:string; x:integer; begin text:='Text pentru exemplificarea functiei DELETE...'; for x:=0 to 7 do begin Delete(text,x,x); writeln(text); end; end. PROCEDURA Exclude -exclude un element dintr-un set SINTAXA este: procedure Exclude(var S:set of T,I:T); Procedura exclude din set,elementul I compatibil cu tipul de data din set. EXEMPLU: program exclude1; uses WinCRT; var N1:set of 0..9; N2:set of 0..7; begin exclude(N1,9); exclude(N2,8); if N1=N2 then writeln('Elementele 8 si 9 au fost excluse din setul N1'); end. PROCEDURA Exit -executa iesirea din blocul curent SINTAXA este: procedure Exit; Procedura determina iesirea din bloc,sau terminarea programului daca blocul curent este programul principal. EXEMPLU: program exit1; uses WinCRT; var x:integer; begin for x:=1 to 20 do begin writeln(x); if x:=13 then exit; end; end. -59- Pentru iesirea dintr-o bucla repetitiva exista si alte doua variante,care utilizeaza fie procedura Break,fie procedura Halt. PROCEDURA Break -intreruoe executia unei bucle for,while sau repeat SINTAXA este: procedure Break; Determina iesirea din bucla cea mai apropiata(interioara) atunci cand exista mai multe bucle intricate. Daca se apeleaza in afara unei bucle de tip for,while sau repeat,procedura genereaza un mesaj de eroare. Reluarea executiei se poate face cu procedura Continue. EXEMPLU: vazi mai jos (la procedura Halt) PROCEDURA Halt -intrerupe executia si returneaza comanda la sistemul de operare SINTAXA este: procedure Halt [(Exitcode:Word)]; Determina intreruperea programului sau executia oricarei proceduri de tip Exit.Codul de iesire precizat prin Exitcode poate fi evaluat de catre procesul de baza(parinte) apeland DosExitCode in cazul unitatii Dos,sau ERRORLEVEL test in cazul filelor izolate. Codul de iesire este optional si se utilizeaza doar pentru a simplifica etapele de depanare rapida. EXEMPLU: program stop1; uses WinCRT; var x,y:Integer; begin for x:=1 to 10 do begin if x=4 then Halt; for y:=1 to 10 do begin writeln('x=',x,' y=',y); if y=7 then Break; end; end; end. Pentru operatii in interiorul fisierelor se pot combina mai multe functii pentru a forma algoritmi simpli si utili.Astfel,pentru a determina pozitia cursorului intr-un fisier si dimensiunea fisierului se pot utiliza functi- ile FilePos,FileSize si procedura Seek. FUNCTIA FilePos -returneaza pozitia cursorului intr-un fisier SINTAXA este: function FilePos(var F):Longint; F este variabila utilizata pentru a deschide fisierul (de tip file).Daca pozitia determinata este la inceputul fisierului,functia returneaza zero, in celelalte situatii returneaza un numar egal cu pozitia din fisier. La sfarsitul filei (EOF),pozitia returnata este identica cu cea returnata de functia FileSize.Fisierul trebuie sa fie deschis in momentul apelarii. Functia nu se poate utiliza pentru fisiere text.(EXEMPLU: vezi FileSize ) -60- FUNCTIA FileSize -returneaza dimensiunea fisierului (filei) SINTAXA este: function FileSize(var F):Longint; Functia returneaza numarul de componente din fila F.Daca fila este goala, functia returneaza zero.Fila trebuie sa fie deschisa inainte de a apela functia FileSize.Nu se poate utiliza pentru file de tip text. EXEMPLU: program filesize1; uses WinCRT; var F:file of Byte; L:longint; begin Assign(F,'CONT.DAT'); Reset(F); Seek(F,23); L:=FilePos(F); writeln('Pozitia cursorului este:',L); L:=FileSize(F); writeln('Dimensiunea fisierului este:',L,' bytes'); Close(F); end. PROCEDURA Seek -determina deplasarea cursorului in fisier SINTAXA este: procedure Seek(var F; N:Longint); Procedura se poate utiliza pentru orice tip de data cu exceptia filelor de tip TEXT si determina deplasarea la elementul cu numarul N din fisier. Dimensiunea saltului,pentru fiecare element din fisier este determinata de tipul de data.Numarul primului element din fiser este zero.Pentru a deplasa cursorul la capatul filei se poate utiliza Seek(F,FuleSize(F)). Fila trebuie sa fie deschisa in momentul apelului.EXEMPLU: vezi mai sus! FUNCTIA SeekEoln -returneaza statutul EOL (end of line) pentru o fila de tip TEXT SINTAXA este: function SeekEoln [(var F:text)]:Boolean; Se poate utiliza numai pentru file TEXT.Fila trebuie sa fie deschisa. EXEMPLU: program SeekEoln1; { citeste 10 linii din fisier ) uses WinCRT; var F:TEXT; Ch:string; x:integer; begin Assign(F,'TEST.TXT'); Reset(F); for x:=1 to 10 do begin if not SeekEoln(F) then {testeaza capatul de rand} Readln(F,Ch); writeln('textul citit este:',Ch); end; Close(F); end. -61- Alte functii utile pentru operatiile cu fisiere sunt:Assign,Reset,Rewrite, EOF ,SeekEof si Append. PROCEDURA Assign -atribuie un nume pentru o variabila externa de tip fisier (fila) SINTAXA este: procedure Assign(var f;String); Procedura atribuie filei F numele continut in sirul String.Numele astfel atribuit va putea fi utilizat in toate operatiile ulterioare cu fisierul respectiv(devine numele filei).Numele atribuit se pastreaza pana cand este schimbat cu un nou apel de tip Assign.Numele atrubuit poate contine calea completa de acces la fisier,caz in care directoarele si subdirectoa- rele sunt separate prin \ (Exemplu: C:\Bp\Bin\Aplicatie.pas). Lungimea maxima acceptata pentru calea de acces este de 79 de caractere. Daca sirul utilizat pentru String este NULL,atunci nu se va atribui nici un nume filei,care va fi asociata automat cu fisierul standard input sau respectiv output. Procedura se poate apela doar inainte de deschiderea filei. EXEMPLU: program assign1; {copiaza fisierul TEST.TXT } uses WinCRT; var F1:TEXT; F2:TEXT; T:string; begin Assign(F1,'TEST.TXT'); Assign(F2,'DUBLURA.TXT'); Reset(F1); Rewrite(F2); while not EOF(F1) do begin Readln(F1,T); Writeln(F2,T); end; Close(F1); Close(F2); end. PROCEDURA Reset -deschide o fila existenta SINTAXA este: Reset(var F [ :File;Recsize:Word ]); Procedura se poate utiliza pentru orice tip de fisier.Parametrul specifi- cat prin Recsize este optional,se utilizeaza doar pentru fisierele fara tip si specifica dimensiunea fiecarui element din fisier (implicit 128 de bytes).Daca nu exista nici o fila cu numale identic cu cel atribuit pentru fila F cu Assign,atunci se genereaza un mesaj de eroare.Daca fila este deschisa in momentul apelarii procedurii Reset,atunci fila va fi inchisa si apoi redeschisa.La deschiderea filei,pozitia implicita a cursorului este la inceputul filei.Daca sirul utilizat pentru atribuirea numelui este NULL,atunci se va deschide automat fila implicita input. Daca fila este de tip text,fila devine de tip read-only.Daca fila deschisa este goala,atunci EOF(F) returneaza True iar daca fila contine date EOF(F) returneaza False.EXEMPLU: vezi mai sus Assign -62- PROCEDURA Rewrite -creaza si deschide o fila noua SINTAXA este: Rewrite(var F: File [;Recsize: Word]); Se poate utiliza pentru orice tip de fila.Recsize este optional,se utili- zeaza doar pentru fisierele fara tip de data,pentru a specifica lungimea fiecarui element(implicit 128 bytes).Rewrite creaza si deschide fila cu numele atribuit prin Assign.Daca sirul utilizat pentru nume este NULL, atunci Rewrute deschide automat fisierul standard output.Daca fila este deschisa in momentul apelului,atunci va fi incisa si apoi redeschisa. La deschiderea filei,cursorul este amplasat la inceputul filei. Daca fila deschisa este de tip text,fila devine de tip write-only. Dupa deschiderea cu Rewrite,EOF(F) este intotdeauna True. EXEMPLU: vezi Assign pe pagina precedenta FUNCTIA SeekEof -returneaza statusul de sfarsit de fila SINTAXA ESTE: function SeekEof [(var T: Text) ]:Boolean; Procedura se poate apela doar pentru file de tip text.Fila trebuie sa fie deschisa in momentul apelului.Functia returneaza o valoare booleana(True sau False) in functie de pozitia cursorului fata de sfarsitul filei. EXEMPLU: program seekeof1; uses WinCRT; var f:text; T:string; begin Assign(f,'TEST.TXT'); Reset(f); while not SeekEof(f) do begin readln(F,T); writeln(T); end; end. FUNCTIA EOF -determina si returneaza statusul de sfarsit de fila SINTAXA este: function Eof(var F):Boolean; Daca nu se specifica numele filei,functia evaluaeaza automat fisierul standard Input.Functia returneaza True,daca pozitia cursorului este dincolo de ultimul element din fila respectiva sau daca fila nu contine nici un element.Daca pozitia cursorului este inaintea ultimului element, functia returneaza False. EXEMPLU: vezi Assign pe pagina precedenta PROCEDURA Append -deschide o fila de tip text pentru adaugarea de date SINTAXA este: procedure Append(var f:Text); Fila trebuie sa fie de tip text si sa aiva un nume atribuit cu Assign. Functia este identica cu Reset,cu deosebirea ca deplaseaza cursorul dincolo de ultimul element din fila(semnalat cu Ctrl+Z =ASCII 26),astfel incat datele introduse vor fi adaugate la cele precedente (nu suprascrie). Dupa Append,fila devine write-only. -63- EXEMPLU: program append2; uses WinCRT; var F:text; S:string; x:integer; begin Assign(F,'TEST.TXT'); for x:=1 to 5 do begin Append(F); writeln('Adaugati un rand in fisierul TEST.TXT:'); readln(S); writeln(F,S); end; end. Pentru a verifica daca ultima operatie de tip I/O a fost executata cu succes,se poate utiliza functia IOresult: FUNCTIA IOResult -returneaza statusul ultimei operatii de tip I/O aflata in executie SINTAXA este: function IOResult: Integer; Functia returneaza zero daca ultima operatie I/O a fost executata cu succes sau o valoare pozitiva in caz de eroare.Pentru ca functia IOResult sa poata fi obiectivata este necesar ca directiva de compliare {$I} sa fie setata OFF printr-o comanda de tip {$I-}.Daca $I este setata {$I+}, atunci in caz ca o operatie I/O nu poate fi executata proogramul este intrerupt automat si se afiseaza un mesaj de eroare.Daca $I este setata {$I-},atunci programul nu este intrerupt automat si se poate utiliza IOResult pentru a determina statusul ultimei operatii de tip I/O. EXEMPLU: program depanare; uses WinCRT; var F:file of byte; S:string; x:integer; begin {$I-} for x:=1 to 3 do begin writeln('Introduceti numele si extensia filei cautate:'); readln(S); Assign(F,S); Reset(F); if IOResult =0 then writeln('fila are:',FileSize(F),' bytes') else writeln('fila nu exista sau nu a fost gasita !'); end; end. Puteti utiliza exemplul pentru orice fila cu extensia .pas din directorul curent(Bp/Bin/...).Functia este utila in etapa de depanare a operatiilor de I/O ,pentru a selecta o alta operatie determinata de operatia I/O,etc. -64- Pentru operatii in fisere fara tip de data,se utilizeaza blocuri de date, si respectiv procedurile BlockRead si Blockwrite (vezi si tipul file). PROCEDURA BlockWrite -scrie intr-o variabila un bloc de date (siruri,inregistrari etc.) SINTAXA este: procedure BlockWrite(var F:file;var Buf;Count:Word [;var Result:Word]); unde :F este o fila fara tip,Buf este tamponul de memorie din care se copiaza datele(de orice tip),Count este numarul de elemente iar Result este parametrul care returneaza rezultatul operatiei. Blocul de memorie transferat nu poate fi mai mare decat 65535 bytes (64K), adica numarul de elemente x lungimea unui element =< 64 K.Daca utilizati inregistrari care contin tipuri de diferite de date,calculati dimensiunea maxima a unei inregistrari,astfel incat blocul transferat sa fie in limitele admise (< 64K).Pentru datele cu format simplu,transferul nu ridica nici un fel de probleme. EXEMPLU: program block1; uses WinCRT; var F:file; S:string; C:integer; R:integer; begin S:='Bloc de date transferat cu BlockWrite !'; Assign(F,'Bloc1.dat'); Rewrite(F,1); BlockWrite(F,S,80,R); Close(F); end. In exemplul de mai sus am transferat in fila Bloc1.dat un sir de caractere deoarece este mai usor de inteles,dar transfarul de blocuri de date este destinat pentru structuri mai mari de date (vezi CONT.DAT). PROCEDURA BlockRead -citeste intr-o variabila un bloc de date dintr-o fila fara tip SINTAXA este: procedure BlockRead(var F:file;var Buf;Count:Word [;var Result:Word]); unde F este o fila fara tip de data,Buf este un tampon de memorie,Count este numarul de elemente citite iar Result este parametrul returnat(adica numarul de elemente citite. Numarul de elemente citite va fi egal cu cel specificat prin Count,sau mai mic,in caz ca fila F nu contine atatea elemente.Fiecare element va avea dimensiunea egala cu cea specificata in Reset iar tamponul de memorie Buf utilizat pentru citirea datelor trebuie sa accepte tipul de data existent in fila F (trebuie sa fie compatibil). Procedura poate citi un bloc de date de maximum 65535 bytes (64 K),adica Count x RecSize trebuie sa fie mai mic decat 64 K. Parametrul result este optional.Daca intregul bloc de date a fost transfe- rat,Result va fi identic cu Count.Daca blocul nu a fost transferat complet result va fi mai mic decat Count si va fi egal cu numarul de inregistrari complete care au fost transferate.Pozitia cursorului avanseaza dupa citirea fiecarei inregistrari. -65- EXEMPLU: program bloc2; uses WinCRT; var F:file; B:string; C:integer; R:integer; begin Assign(F,'Bloc1.DAT'); Reset(F,1); BlockRead(F,B,80,R); writeln(B); Close(F); end. Am citit date din fisierul creat cu BlockWrite,deoarece este mai simplu de inteles,dar blocurile de date se utilizeaza in mod obisnuit pentru structuri complexe de date (vezi si exemplul pentru CONT.DAT). Pentru a determina dimensiunea maxima posibila pentru un bloc de date, se poate utiliza functia MaxAvail: FUNCTIA MaxAvail -returneaza dimensiunea maxima posibila a unui bloc de date continue (fara fragmentare si legarea fragmentelor prin pointeri) SINTAXA este: function MaxAvail:Longint; Functia returneaza fie cel mai mare bloc de date ce poate fi alocat dinamic,fie stiva globala Windows,astfel incat rezultatul sa corespunda cu dimensiunea maxima ce poate fi alocata unei variabile in momentul respectiv. EXEMPLUI: program memorie1; uses WinCRT; begin Writeln('Memoria libera contine:',MemAvail,' bytes'); Writeln('Blocul maxim alocabil este de: ',MaxAvail,' bytes'); end. FUNCTIA MemAvail -returneaza volumul total de memorie libera din stiva SINTAXA este: function MemAvail: Longint; Functia returneaza dimensiunea totala a tuturor blocurilor de memorie libera (alocabila).Trebuie sa remarcati faptul ca este foarte probabil ca memoria libera din stiva sa fie extrem de fragmentata,ceea ce inseamna ca valoarea returnata nu reprezinta un bloc continuu de memorie ci suma unui numar oarecare de blocuri mai mici.Pentru a afla blocul continuu cel mai mare puteti apela MaxAvail. In versiunea Windows,rezultatul returnat reflecta memoria calculata prin adaugarea la rezultatul returnat de functia GetFreeSpace a blocurilor de memorie libera din stiva gestionate sub forma de spatiu sub-alocabil. Daca volumul de memorie libera este suficient de mare,dar blocurile de memorie alocabila sunt prea mici si nu permit efectuarea operatiilor de I/O cu blocuri mari de date,se recomanda defragmentarea memoriei (cu unul dintre utilitarele Windows). EXEMPLU: vezi mai sus -MaxAvail -66- PROCEDURA Insert -insera un sir in alt sir de caractere SINTAXA este: procedure Insert(Source:String;var S:String;Index:Integer); Procedura introduce sirul specificat prin Source in sirul S,incepand cu pozitia Index din sirul S.Daca sirul rezultat este mai lung de 255 de caractere,sirul va fi amputat la caracterul 255. EXEMPLU: program insert1; uses WinCRT; var text:string; S:string; x:integer; begin text:='Text oarecare pentru exemplificarea functiei Insert'; S:='...'; Randomize; for x:=1 to 9 do begin Insert(S,text,Random(60)); writeln(text); end; end. PROCEDURA Move -copiaza date din sursa la destinatia specificata SINTAXA este: procedure Move(var Source,Dest;Count:Word); Procedura permite transferarea datelor dintr-o variabila in alta.Prin Source se specifica adresa la care sunt arhivate datele (variabila sursa) iar prin Dest se specifica adrea de destinatie (variabila de destinatie). Count precizeaza numarul de bytes din sursa care vor fi transferati la destinatie.Procedura permite transferul rapid de date,initializarea auto- mata a variabilelor,actualizarea automata a datelor etc.Procedura nu ve- rifica daca variabila specificata ca destinatie este compatibila cu tipul de date transferate si nu returneaza eroare in caz de incompatibilitate, dar rezultatul obtinut este imprevizibil (Exemplu: daca se transfera un sir de caractere intr-o variabila de tip real,va rezulta o valoare complet eronata,fara ca programul sa semnalizeze eroarea). EXEMPLU: program move1; uses WinCRT; var Text1,Text2,Text3:string; x:real; begin Text1:='Borland Pascal Windows'; Move(Text1,Text2,15); Move(Text2,Text3,8); Move(Text3,x,8); writeln(Text1); writeln(Text2); writeln(Text3); writeln(x); end. Observati rezultatul transferului,in cazul datelor incompatibile. -67- PROCEDURA New -creaza o variabila dinamica noua pentru care asociaza automat un pointer SINTAXA este: New(var P;pointer [,Init:Constructor]); Procedura creaza automat un pointer spre variabila dinamica nou creata. Este foarte utila atunci cand dorim sa initializam pointeri spre elemente dintr-o arie de date,astfel incat sa putem actiona ulterior asupra datelor cu functii care utilizeaza pointeri. In versiunile moderne de Pascal care lucreaza cu obiecte,functia a fost extinsa estfel incat sa poata initializa obiectele noi alocate in stiva. In acest caz,procedura asociaza si un al doilea parametru care contine constructorul obiectului.(Aceasta optiune va fi prezentata la programarea structurata pe obiecte Windows cu ajutorul functilor API). Deasemenea,procedura New a fost implementata si sub forma de functie.In acest caz,functia returneaza valoarea pointerului. EXEMPLU: program new1; uses WinCRT; var y:array[1..10] of string; x:integer; P:array[1..10] of ^string; begin for x:=1 to 5 do begin writeln('Introduceti un text oarecare:'); readln(y[x]); New(P[x]); P[x]^:=y[x]; end; clrscr; for x:=1 to 5 do writeln(P[x]^); end. In exercitiul de mai sus am declarat o arie de date de tip text in care am initializat cu valori cateva elemente si am construit automat si cate un pointer spre fiecare element initializat,apoi am verificat daca pointerii sunt orientati spre datele introduse.Intr-o etapa ulterioara, pointerii pot fi utilizati in functii pentru actualizarea automata a datelor. FUNCTIA Ord -returneaza numarul de ordine pentru o data de tip ordinal SINTAXA este: function Ord(X): Longint; Functia returneaza numarul de ordine pentru orice data de tip ordinal. Valoarea returnata este un numar de tip Longint,incepand cu zero. EXEMPLU: program ord1; uses WinCRT; type Nume=(ION,DAN,MIHAI,VASILE,STEFAN); begin writeln('Vasile are numarul de ordine: ',Ord(VASILE)+1); end. Deoarece primul element din sirul de nume are valoarea ordinala zero,am adaugat 1 la valoarea returnata pentru ca rezultatul sa fie mai intuitiv. -68- FUNCTIA Odd -verifica daca argumentul este sau nu este un numar par SINTAXA este: function Odd(X:Longint):Boolean; Functia returneaza True daca X este un numar par sau False daca este un numar impar.( A nu se confunda cu paritatea datelor binare ! ) EXEMPLU: program odd1; uses WinCRT; var x:integer; begin for x:=1 to 20 do if Odd(x)=True then writeln(x,' este impar') else writeln(' ',x,' nu este impar'); end. PROCEDURA RunError -termina fortat executia programului si returneaza un mesaj de eroare SINTAXA este: procedure RunError [(Errorcode: Byte)]; Procedura intrerupe executia programului si returneaza un mesaj de eroare cu codul specificat prin Byte.Se utilizeaza pentru a introduce exceptii de executie in programe (iesiri fortate din program in caz de eroare). EXEMPLU: program eroare1; uses WinCRT; var x:integer; begin for x:=1 to 20 do begin if x=13 then RunError(77); writeln('x=',x); end; end. PROCEDURA Str -converteste o valoare numerica la un sir de caractere (inversa cu Val) SINTAXA este: procedure Str(X [:Width [: Decimals]]; var S:String); Numarul X va fi convertit la un sir de caractere (identic cu numarul). EXEMPLU: program conversie1; uses WinCRT; var text:string; numar,I:integer; begin I:=1955; Str(I,text); writeln('numarul convertit este:',text); text:='7760'; Val(text,numar,I); writeln(text,' + 333 este:'); writeln(numar+333); end. -69- FUNCTIA Assigned -determina daca un pointer este initializat sau este NIL (nul). SINTAXA este: function Assigned(var P):Boolean; Functia determina daca un pointer este nul (P <> nil) sau daca o variabila procedurala este nula ( @P <> nil).Functia returneaza True daca pointerul este nil sau False in caz contrar.Este foarte utila mai ales in etapa de depanare a unor programe in care s-au declarat un numar mare de pointeri, dar o parte dintre acestia au ramas neutilizati.Pentru a putea identifica si elibera pointerii nuli se poate utiliza functia Assigned. EXEMPLU: program assigned; uses WinCRT; var x: integer; P:array[1..10] of ^integer; begin for x:=1 to 3 do begin New(P[x]); P[x]^:=x; end; for x:=1 to 5 do if Assigned(P[x]) then writeln('Pointerul P',x,' este initializat') else writeln('Pointerul P',x' este NULL'); end. PROCEDURA Dispose -elibereaza un pointer SINTAXA este: procedure Dispose(var P:Pointer [,Destructor]); Functia elibereaza un pointer din memorie.Nu se poate utiliza impreuna cu Mark sau Release.Daca se utilizeaza si extensia optionala,procedura se poate utiliza si pentru a elibera un obiect din memorie.In acest caz,se va utiliza cel de al doilea parametru pentru a specifica destructorul obiectului (Exemplu: Dispose(P,Done); ). Dupa apelarea procedurii,valoarea pointerului devine nedefinita si nu mai poate fi referita (ca si cand nu ar fi fost declarat).Daca se apeleaza un pointer care nu este orientat spre nici o regiune din memorie,atunci se va returna un mesaj de eroare de tip run-time error. EXEMPLU: program dispose1; uses WinCRT; var P:=string; begin New(P); P^:='Pointerul este activ'; writeln(P^); Dispose(P); writeln('Pointerul P nu mai poate fi utilizat'); end. Daca se apeleaza pointerul dupa ce a fost eliberat cu Dispose,se retur- neaza un mesaj de eroare.In exemplu de mai sus,puteti incerca sa apelati writeln(P^) dupa Dispose(P) pentru a verifica mesajul de eroare. -70- FUNCTIA ParamCount -returneaza numarul de parametri din linia de comanda a programului SINTAXA este: function ParamCount:Word; Functia returneaza numarul de parametri din linia de comanda (pot fi sepa- rati prin spatii goale sau TAB). EXEMPLU: vezi ParamStr mai jos FUNCTIA ParamStr -returneaza parametrul specificat,din linia de comanda a programului SINTAXA este: function ParamStr(Index):String; Functia returneaza parametrul specificat prin Index.Index este o valoare de tip Word,ordinala.Daca Index este mai mare decat numarul de parametrii, atunci se va returna un sir nul.ParamStr(0) returneaza calea de acces si numele filei active. EXEMPLU: program parSTR1; uses WinCRT; var x:Word; begin writeln('Numarul de parametri transferati:',ParamCount); for x:=0 to 3 do writeln(ParamStr(x)); end. Daca utilizati versiunea implicita a programului,exercitiul returneaza zero parametri.Pentru executa programul cu parametrii,de exemplu,din meniul Run al programului,selectati optiunea Parameters iar in linia de comanda din caseta introduceti parametrii doriti,separati prin spatii goale (Exemplu: e si m ) dupa care confirmati cu OK si executati din nou aplicatia cu Run.Eventual verificati semnificatia parametrilor din linia de comanda din utilitarul Help(Resource Compiler Command-Line Options). FUNCTIILE matematice (Abs,ArcTan,Cos,Exp,Frac,Ln,Pi,Random,Round,Sin,Sqr, Sqrt,Trunc) sunt foarte intuitive,usor de aplicat si nu necestia expli- catii speciale.Atentie totusi la tipul de data utilizat ! EXEMPLU: program pi1; uses WinCRT; begin writeln('Pi=',PI); writeln('Valoarea trunchiata este:',Trunc(PI)); writeln('Valoarea rotunjita este:',Round(PI)); writeln('Valoarea intreaga este:',Int(PI)); writeln('Fractiunea rotunjita este:',Frac(PI)); writeln('Pi patrat este:',Sqr(PI)); writeln('Radical din Pi este:',Sqrt(PI)); writeln('Sinus de Pi este:',Sin(PI)); writeln('Cosinus de PI este:',Cos(PI)); writeln('e la Pi este:',Exp(PI)); writeln('ArcTangenta de Pi este:',ArcTan(PI)); writeln('minus Pi absolut este:',Abs(-PI)); writeln('Logaritm natural din Pi este:',Ln(PI)); end. Dezvoltati cat mai multe exemple si aplicatii cu calcule matematice. -71- UNITATEA WINPROCS Functiile GDI (Graphics Device Interface) UNITATEA WinProcs:-contine functii si proceduri care permit realizarea unor interfete grafice de tip Windows pentru programele realizate (API). Prin intermediul acestei unitati,se pot utiliza toate bibliotecile stan- dard ale sistemului Windows.Impreuna cu WinTypes,formeaza resursele Turbo Pascal pentru programare cu obiecte Windows.Este cea mai ampla si cea mai spectaculoasa colectie de functii si proceduri (in jur de 1000 de functii) dintre care,in acest manual vor fi exemplificate doar cele mai usor de inteles si implementat.Pentru restul resurselor din aceasta unitate,citi- torii vor face un mic efort individual.Functiile WinProcs pot fi grupate in functie de domeniul de aplicatie in mai multe grupuri,dintre care cele mai importante sunt: functiile Kernel (destinate pentru gestionarea memo- riei),functiile Windows 3.1,functiile grafice GDI (Graphics Device Inter- face),functiile pentru obiecte(OLE functions),functiile pentru comunicatie functiile pentru organizarea fisierelor,functiile pentru intrare/iesire, functiile pentru utilizator(user functions) etc.Cu putina rabdare,puteti gasi o functie pentru aproape orice fel de necesitati de programare,astfel incat rar este necesar sa fie definite functii cu adevarat noi.Din pacate, utilitarul Help nu incude si exemple clare,iar unele dintre functii nece- sita diverse conditii de mediu pentru apelare si executie,astfel incat implementarea lor este uneori destul de laborioasa.Astfel,de exemplu,toate functiile care utilizeaza un sistem de coordonate,nu pot fi implementate in sistemul Windows decat pentru un anumit context grafic,denumit context de unitate (device context).Pentru fiecare fereastra deschisa,trebuie identificat contextul de dispozitiv inainte de a apela astfel de functii. In acest sens,exista doua solutii:-prima este mai laborioasa si presupune sa declarati si definiti obiectele Windows cu care lucrati,inclusiv fere- strele,iar a doua este relativ mai simpla si utilizeaza functii automate: EXEMPLU: program obiect1; uses WinCRT,WinProcs; var nr:integer; begin nr:=CreateWindow('EDIT','DESEN',5,10,10,180,0,0,hInstance,NIL); ShowWindow(nr,4); UpdateWindow(nr); TextOut(GetDC(nr),20,20,'Elipsa',6); Ellipse(GetDC(nr),20,60,160,120); WindowOrg.X:=100; WindowOrg.Y:=200; writeln('Vezi fereastra mica'); end; In acest exemplu,am creat o fereastra noua cu CreateWindow,am afisat fe- reastra cu ShowWindow,am actualizat fereastra cu UpdateWindow pentru a putea introduce date noi,dupa care am scris un text si am desenat o figura geometrica pentru a exemplifica modul de utilizare al ferestrei create. Incercati sa modificati parametrii fiecarei functii,astfel incat programul sa fie pe gustul d-voastra.Prezentarea fiecarui parametru din fiecare functie nu poate face obiectul acestui manual,din lipsa de spatiu,dar fiecare utilizator este incurajat sa studieze cat mai amanuntit fiecare amanunt al fiecarei functii pentru a putea realiza programe performante. -72- A doua modalitate de a apela functii grafice este sa initializam si sa determinam contextul grafic pentru fereastra WinCRT implicita.Pentru a efectua si operatiuni spatiate temporal,este necesara si o functie de monitorizare a timpului,astfel inca sa se poata realiza efecte de animatie EXEMPLU: program animat1; uses WinCRT,WinProcs; var a,b,y,z:integer; t,w:longint; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); a:=20; t:=GetCurrentTime; w:=t+5000; repeat t:=GetCurrentTime; Ellipse(z,a,a,a*2,a*2); for b:=1 to 1000 do if (w-t)/10=b then a:=a+2; until t>w; end. In exemplul de mai sus am initializat fereastra WinCRT,am identificat contextul de dispozitiv cu GetDC iar apoi am desenat cate o elipsa atat la intervale de cate o sutime de secunda,timp de 5 secunde si am deplasat cursorul,astfel incat sa creeze un efect de desen animat.Pentru spatierea temporala am utilizat functia GetCurrentTime,care determina in milisecunde timpul scurs de la lansarea sistemului Windows. Cele doua exemple,prezinta simplist cele mai usoare metode de implementare a functiilor din unitatea WinProcs.Cele doua programe pot fi lansate si automat,succesiv,daca apelam la functia WinExec. EXEMPLU: program winexec1; uses WinCRT,WinProcs; begin WinExec('animat1.exe',5); WinExec('obiect1.exe',5); end. Exemplul presupune sa salvati cele doua programe anterioare cu numele de obiect1.pas si respectiv animat1.pas si apoi sa le compilati pentru a obtine fielele executabile.In mod similar,functia WinExec poate fi utili- zata pentru a lansa in executie orice fila Windows executabila. Aparent totul este extrem de simplu.Este insa absolut indispensabil sa furnizati intotdeauna sistemului Windows informatiile de care are nevoie, respectiv sa precizati care este fereastra activa,contextul de dispozitiv, prin intermediul codurilor numerice de manevrare a resurselor (handle). Acelasi rezultat se poate obtine si utilizand resursele Windows din biblioteca de obiecte Windows predefinite arhivate in unitatea OWindows. Acest gen de operatii va fi detaliat la descrierea unitatii OWindows,dar este bine de retinut ca exista mai multe variante posibile de programare prin care se poate obtine acelasi rezultat(de exemplu o fereastra). -73- Functiile grafice sunt grupate sub titlul de GDI.O parte dintre ele vor fi exemplificate simplist. EXEMPLU: program chord1; uses WinCRT,WinProcs; var y,z,h:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); Arc(z,20,50,150,150,250,100,160,190); Chord(z,50,50,200,200,70,70,180,180); Chord(z,120,60,200,200,180,150,70,70); end. Exemplul grupeaza trei functii grafice intr-un singur desen(au coordonate comune). EXEMPLU: program chenare1; uses WinCRT,WinProcs; var y,z,nr:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); Randomize; for nr:=1 to 20 do Rectangle(z,Random(400),Random(200),Random(400),Random(200)); end. Exemplul executa o bucla in care deseneaza un dreptunghi cu coordonate aleatoare,repetat de 20 de ori.Rezulta desene arbitrare. EXEMPLU: program poligon1; uses WinCRT,WinProcs; var y,z:integer; begin InitWinCRT; y:=GetActiveWindows; z:=GetDC(y); Moveto(z,50,50); lineto(z,50,200); lineto(z,100,300); lineto(z,300,300); lineto(z,350,150); lineto(z,200,50); lineto(z,50,50); end. Exemplul utilizeaza un set de linii trasate cu functia Lineto pentru a inchide un poligon.Exista si functii complexe destinate special pentru desenarea poligoanelor(Polygon,Polypolygon).Aceste functii utilizeaza seturi de inregistrari de tip TPoint in care sunt arhivate coordonatele fiecarui varf al poliginului.Aceste functii sunt mai laborioase,dar sunt utile mai ales pentru reprezentarea grafica a grafurilor.Sunt utile mai ales atunci cand un anumit poligon va fi desenat de mai multe ori succesiv sau va suferi repetate actualizari in cursul unui program. -74- Exercitiul precedent este mult mai spectaculos daca utilizam suprafete colorate in locul unor dreptunghiuri simple.Pentru a putea umple supra- fetele cu o anumita culoare,este necesar sa utilizam un instrument de desenare denumit pensula(brush).Dupa crearea pensulei,se poate apela oricare dintre functiile care umplu suprafetele cu o anumita culoare. EXEMPLU: program culori1; uses WinCRT,WinProcs,WinTypes; var y,z,h,p,nr:integer; R:TRect; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); Randomize; for nr:=1 to 50 do begin R.left:=Random(500); R.top:=Random(300); R.right:=Random(500); R.bottom:=Random(300); p:=CreateSolidBrush(RGB(Random(255),Random(255),Random(255))); SelectObject(z,p); FillRect(z,R,p); DeleteObject(p); end; end. Observati ca la fiecare bucla for,se creaza o noua pensula,cu o culoare aleatorie,apoi se selecteaza pensula cu SelectObject si se umple o supra- fata data de tip TRect (cu dimensiuni tot aleatorii).Repetati exercitiul de mai multe ori pentru a remarca paleta de nuante si culori realizata de functia RGB.Cei trei parametri ai functiei RGB specifica culorile de baza Rosu,Verde si Albastru iar in functie de concentratia fiecarei culori va rezulta o anumita nuanta de culoare. Observati ca dupa utilizarea pensulei,aceasta a fost eliberata cu DeleteObject pentru a elibera memoria.Este extrem de important sa elibe- rati intotdeauna din memorie obiectele cu care nu se mai lucreaza.In caz contrar,memoria va fi ocupata cu date nefunctionale si in scurt timp programul va fi inoperant. Pensula activa va fi utilizata si pentru umplerea automata a poligoane- lor si pentru toate functiile care au ca parametru codul handle returnat la crearea pensulei. Daca doriti sa lucrati cu mai multe culori,creati mai multe pensule si apoi selectati pentru fiecare operatie pensula dorita.Nu eliberati pensu- lele inactive decat dupa ce a-ti epuizat toate operatiile dorite in culoa- rea respectiva. Daca nu este necesar,nu supraincarcati memoria cu obiecte inutile,deoarece riscati sa blocati memoria de operare cu date inutile. Daca doriti sa utilizati contururi de o anumita grosime si intr-o anumita culoare,este necesar un alt instrument de desenare,denumit penita (Pen). Penita se creaza in mod similar cu pensula,dupa care se selecteaza cu SelectObject,iar apoi se elibereaza cu DeleteObject(dupa operatie). -75- EXEMPLU: program poligon2; uses WinCRT,WinProcs; var y,z,h,p:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); RoundRect(z,100,100,300,300,100,300); h:=CreatePen(1,3,RGB(200,10,20)); p:=CreateSolidBrush(RGB(100,200,10)); SelectObject(z,p); FloodFill(z,200,200,0); SelectObject(z,h); Rectangle(z,200,100,206,70); DeleteObject(p); DeleteObject(h); end. In exercitiul de mai sus,dupa activarea ferestrei am desenat un dreptunghi cu colturi rotunjite(RoundRect),apoi am creat o pensula si o penita,am selectat pensula si am umplut suprafata,apoi am selectat penita si am desenat un dreptunghi cu contur rosu,dupa care am eliberat obiectele. Pentru a crea un poligon cu functia automata Polygon,trebuie declarata o arie de date de tip TPoint in care fiecare element va fi referit prin pointeri.Este mai laborioasa dar este foarte utila pentru grafuri etc. EXEMPLU: program poligon3; uses WinCRT,WinProcs,WinTypes; var y,z,h,p:integer; a:array[1..3] of TPoint; B,C,D:TPoint; B1,C1,D1:^TPoint; begin B1:=@B; C1:=@C; D1:=@D; B.x:=200; B.y:=200; C.x:=250; C.y:=250; D.x:=100; D.y:=100; a[1]:=B1^; a[2]:=C1^; a[3]:=D1^; InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); h:=CreatePen(1,10,RGB(200,10,200)); SelectObject(z,h); Polygon(z,a,3); DeleteObject(h); end. -76- Functia Polygon prezinta urmatoarele avantaje: dupa declararea perechilor de coordonate ale fiecarui varf,salvate intr-o arie de date de tip TPoint, functia este extrem de usor de implementat,cu un numar variabil de varfuri pentru care se extrag valorile din aria de arhivare intr-o alta arie mai mica.Modulul care contine declaratia valorilor poate fi situat in afara programului si poate fi apelat doar atunci cand este necesar.Pentru un exercitiu cu grafuri,se pot declara un anumit numar de varfuri cu coordo- nate fixe,iar apoi,in functie de necesitati se pot prelua automat doar valorile necesare pentru poligonul sau graful dorit.Acest prototip se poate aplica la toate functiile care utilizeaza structuri de tip TPoint pentru definirea perechilor de valori care specifica coordonatele unui anumit punct(Polygon,Polyline etc.). In plus,aria de tip ordinal permite si operatii de ordonare a membrilor. Este indispensabila utilizarea pointerilor spre fiecare structura de tip TPoint.Nu are aplicatie pentru poligoane izolate,ci doar atunci cand un poligon va fi desenat in repetate randuri sau va suferi repetate mo- dificari si actualizari.Metoda este utila si pentru animatie,jocuri etc. Pensula utilizata pentru umplerea suprafetelor intr-o anumita culoare poate avea si un anumit model prestabilit,sau definit de catre utilizator. Pentru modele hasurate,este foarte utila functia CreateHatchBrush. EXEMPLU: program poligon4; uses WinCRT,WinProcs; var y,z,h,p:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); RoundRect(z,100,100,300,300,100,300); p:=CreateHatchBrush(2,RGB(10,200,10)); SelectObject(z,p); FloodFill(z,200,200,0); h:=CreateHatchBrush(5,RGB(200,10,20)); SelectObject(z,h); Rectangle(z,400,200,560,320); DeleteObject(p); DeleteObject(h); end. Pentru a crea o pensula cu un anumit model si stil se poate utiliza si functia CreateBrushIndirect,in care optiunile utilizatorului se vor salva intr-o structura de tip TLOGBRUSH utilizata apoi la crearea pensulei. Se pot crea un numar nelimitat de pensule,cu diferite stiluri,modele si culori,dar nu uitati ca fiecare obiect creat incarca memoria de operare si reduce viteza de executie.Nu uitati sa eliberati obiectele in momentul in care nu mai sunt necesare.Pentru programele mici,puteti utiliza un numar mare de obiecte grafice,dar in programele mari este bine sa va limitati doar la cele absolut necesare. Incercati sa exersati cat mai multe functii grafice,pana cand vi se par extrem de simple.Eventual incercati exercitii simple de animatie,sau chiar un joc de tip TETRIS in care desenele cad si se sterg atunci cand ating linia de jos a ecranului. -77- Pentru diverse tipuri de aplicatii,ecranul poate fi subimpartit in regiuni dreptunghiulare,sau eliptice(incusiv rotunde),care pot fi apoi prelucrate cu diverse functii.Regiunile cu care se manevreaza pot avea dimensiuni de maxim 32767 per 32767 unitati logice,astfel incat sa nu ocupe blocuri de memorie mai mari decat 64 K. Pentru crearea regiunilor se pot utiliza functiile CreateRectRgn,sau CreateEllipticRgn si CreateEllipticRgnIndirect,iar pentru combinarea regiunilor se poate utiliza functia CombineRgn. EXEMPLU: program regiuni1; uses WinCRT,WinProcs; var x,y,z,w,p1,p2,p3,R1,R2,R3,C:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); p1:=CreateHatchBrush(2,RGB(10,200,10)); p2:=CreateHatchBrush(5,RGB(200,10,10)); p3:=CreateHatchBrush(4,RGB(10,10,200)); R1:=CreateRectRgn(20,20,150,150); SelectObject(z,p2); PaintRgn(z,R1); R2:=CreateRectRgn(80,20,250,100); SelectObject(z,p1); PaintRgn(z,R2); writeln('Apasati orice tasta !'); readln; R3:=CreateRectRgn(200,200,450,350); C:=CombineRgn(R3,R2,R1,1); FillRgn(z,R3,p3); DeleteObject(p1); DeleteObject(p2); DeleteObject(p3); DeleteObject(R1); DeleteObject(R2); DeleteObject(R3); DeleteObject(C); end. Functia CombineRgn permite fie selectarea elementelor comune,fie a celor exclusive din cele doua regiuni comparate.Pentru exemplificare schimbati ultimul parametru din functia CombineRgn cu:2,3,4,5 si observati modul de selectie al elementelor din cele doua regiuni.Procedee similare se utilizeaza extensiv in tehnicile de programare a jocurilor pentru cal- culator,atunci cand un obiect grafic in miscare se suprapune peste un alt obiect grafic care reaalizeaza decorul (gen jocuri de arcada de tip DR.Mario etc.). Utilizarea regiunilor grafice simplifica mult munca de programare,dar este mare consumatoare de memorie.Este bine sa nu exagerati cu formarea de regiuni grafice,deoarece fiecare dintre ele va ocupa un tampon de me- morie scazand considerabil memoria libera accesibila.Dupa utilizarea lor este bine sa fie eliberate cat mai rapid cu DeleteObject.Eventual se pot scrie functii care elibereaza automat toate obiectele create(destructori). -78- In mod asemanator cu regiunile grafice,ecranul poate fi impartit si in arii bitmap care pot avea definitii diferite pentru fiecare pixel si sunt dependente de contextul de dispozitiv grafic.Astfel,pentru placile grafice care accepta mai multe rezolutii grafice,ecranul poate contine arii grafice cu rezolutie diferita.Aceste arii,poarta denumirea de arii bitmap(harta de biti) si sunt extrem de utilizate in epoca digitala,pentru redarea imaginilor digitale(poze,filme,clipuri,desene animate etc.). Ariile bitmap se poit crea cu CreateBitmap,CreateBitmapIndirect,sau cu CreateCompatibileBitmap si apoi pot fi prelucrate (copiate) cu BitBlt. EXEMPLU: program bitmap1; uses WinCRT,WinProcs; var y,z,h,p,m,w:integer; begin WindowOrg.x:=280; WindowOrg.y:=210; InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); p:=CreateHatchBrush(2,RGB(10,200,10)); SelectObject(z,p); m:=CreateCompatibleBitmap(z,250,250); SelectObject(z,m); Rectangle(z,0,0,250,250); TextOut(z,100,100,'Text pentru exemplificarea regiunii Bitmap',42); w:=CreateWindow('EDIT','BITMAP',5,10,10,400,200,0,0,hInstance,Nil); UpdateWindow(w); ShowWindow(w,4); writeln; BitBlt(GetDC(w),50,50,200,250,z,20,20,RGB(250,100,200)); DeleteObject(p); DeleteObject(m); end. Functia CreateCompatibileBitmap creaza o arie de tip bitmap cu aceeasi rezolutie grafica,astfel incat elementele grafice din arie sunt identice cu cele din afara ariei (vezi textul din fereatra initiala).La transferul ariei bitmap in cea de a doua fereastra,sunt trunchiate toate elementele care se desfasoara si in afara ariei(vezi textul).In mod similar sunt trunchiate si eventualele arii suprapuse din alte fereste suiprapuse peste cea initiala.Observati ca textul este amputat la limita ariei copiate. Pentru incepatori se recomanda utilizarea functiei CreateCompatibileBitmap deoarece este suficienta pentru transferul datelor si nu prezinta nici un fel de riscuri.Functia CreateBitmap este mai spectaculoasa si permite si realizarea unor efecte de tip zoom,dar in cazul incepatorilor exista si riscul de a crea arii de tip bitmap cu definitie nereprezentabila,caz in care se poate deregla intregul sistem de afisare grafica a imaginii. La fel ca si regiunile,ariile bitmap ocupa tampoane relativ mari de me- morie si este bine sa fie eliberate imediat ce nu mai sunt necesare cu DeleteObject.Functiile care opereaza cu arii bitmap au destul de multi parameteri si par greoaie la prima vedere,dar simplifica extrem de mult programarea efectelor de animatie (sunt un exemplu tipic de programare orientata pe obiect). -79- Pentru editarea textelor in modulul grafic din ferestrele Windows,se pot utiliza fonturile implicite,impreuna cu functia TextOut,dar se pot utiliza si fonturi personalizate create de catre utilizator.Aceste fonturi sunt obiecte grafice la fel ca si pensulele sau penitele si se pot crea cu diverse functii,dintre care cea mai simpla este functia CreateFont. EXEMPLU: program fonturi1; uses WinCRT,WinProcs; var P:PChar; y,z,f1:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); f1:=CreateFont(50,16,4,9,700,1,1,0,255,1,1,1,0,P); SelectObject(z,f1); TextOut(z,10,100,'Fonturi personalizate',21); DeleteObject(f1); end. Fonturile personalizate astfel create se utilizeaza la fel ca orice alt obiect grafic,adica se selecteaza cu SelectObject si apoi se elibereaza cu DeleteObject in momentul in care nu mai sunt necesare.Numarul mare de parametri permite modelarea fonturilor dupa bunul plac,sau dupa nece- sitatile de spatiu din aplicatia in care vor fi utilizate. Pentru a adauga si putina culoare,se pot utiliza functiile SetBkColor si respectiv SetTextColor,iar pentru a distanta caracterele se poate apela functia SetTextCharacterExtra. EXEMPLU: program fonturi2 usesWinCRT,WinProcs; var P:PChar; y,z,f1:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); f1:=CreateFont(60,20,150,160,700,1,1,0,255,1,1,1,0,P); SelectObject(z,f1); SetBkColor(z,RGB(50,250,50)); SetTextColor(z,RGB(250,10,10)); SetTextCharacterExtra(z,5); TextOut(z,10,200,'Fonturi Personalizate',21); DeleteObject(f1); end. Observati ca textul poate fi si inclinat cu un unghi oarecare,prin modi- ficarea celui de al treilea parametru din CreateFont(150).Incercati sa schimbati succesiv valorile parametrilor pana cand obtineti efectul dorit. Se pot utiliza mai multe randuri de fonturi,la fel ca si pensulele sau penitele grafice,dar nu uitati sa eliberati obiectele,in momentul in care nu mai sunt necesare.Eventual utilizati functii constructor pentru crearea obiectelor grafice si apoi functii destructor pentru eliberarea lor(doar atunci cand utilizati repetat un numar mai mare de obiecte grafice). Eventual constructorul si destructorul pot forma un modul independent. -80- Pentru a programa interfata grafica,sau pentru diverse aplicatii,se pot utiliza si functii mult mai discriminative,cum sunt GetPixel si SetPixel, care permit selectarea nuantei de culoare pentru fiecare pixel de pe suprafata grafica. EXEMPLU: program pixeli2; uses WinCRT,WinProcs; var y,z,nr1,nr2:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); Randomize; for nr1:=1 to 20 do begin for nr2:=1 to 20 do begin SetPixel(z,nr1*nr1,nr2*nr2,RGB(250,10,10)); SetPixel(z,nr1+5*nr2,nr1+nr2,RGB(10,10,250)); end; end; end. Exemplul de mai sus prezinta dispersia valorilor pentru o functie simpla fata de o grila de coordonate liniare,Se poate observa fiecare valoare reprezentata printr-un pixel (albastru). Functia se poate insa utiliza si pentru a grupa un numar mai mare de pixeli cu scopul de a forma un anumit efect grafic,sau pentru a forma un anumit model de culoare marmorata sau patata,etc... EXEMPLU: program pixeli1; uses WinCRT,WinProcs; var y,z,nr1,nr2:Integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); Randomize; for nr1:=1 to 200 do begin for nr2:=1 to 200 do begin SetPixel(z,nr1,nr2,RGB(250,Random(250),10)); SetPixel(z,nr1,nr2,RGB(10,Random(250),250)); end; end; end. Pentru efecte complexe de animatie,desenele realizate pixel cu pixel sunt preluate sub forma de bitmap si apoi sunt prelucrate cu alte functii, pentru a obtine diferite efecte speciale.Functiile la nivel de bit sunt insa extrem de utile pentru reprezentarea grafica a functiilor matematice, pentru prezentarea modului de dispersie la un grup de valori aleatorii, pentru reprezentarea datelor statistice sub forma de multimi de de valori, sau pentru realizarea unor obiecte grafice personalizate etc. -81- Obiectele grafice create pentru un anumit dispozitiv grafic pot fi salvate intr-o metafila cu ajutorul functiei CreateMetafile.Ulterior dupa inchi- derea filei astfel create cu CloseMetaFile,fila de obiecte poate fi reape- lata cu ajutorul functiei PlayMetaFile,astfel incat obiectele grafice sa poata fi utilizate in alt context de dispozitiv (alta fereastra,imprimanta etc.).Dupa epuizarea operatiilor grafice,fila se elibereaza cu functia DeleteMetaFile,pentru a elibera memoria. EXEMPLU: program metafila1; uses WinCRT,WinProcs; var y,z,h,p,f,f1,w,c:integer; v:boolean; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); RoundRect(z,100,100,300,300,100,300); h:=CreatePen(1,3,RGB(200,10,20)); p:=CreateSolidBrush(RGB(100,200,10)); SelectObject(z,p); Floodfill(z,200,200,0); SelectObject(z,h); Rectangle(z,200,100,206,70); f:=CreateMetaFile(NIL); f1:=CloseMetaFile(f); writeln('Apasati orice tasta:'); readln; w:=Create Window('Edit','M1',5,10,10,400,300,0,0,hInstance,Nil); ShowWindow(w,4); UpdateWindow(w); c:=GetDC(w); rectangle(c,100,100,200,200); v:=PlayMetaFile(c,f1); SelectObject(c,h); SelectObject(c,p); Ellipse(c,20,20,100,100); DeleteObject(p); DeleteObject(h); DeleteObject(f); DeleteObject(f1); DeleteMetafile(f1); end. Observati ca am transferat cu ajutorul metafilei create,obiectele grafice din fereastra initila in fereastra M1 nou creata.Daca metafila este creata cu parametrul Nil (ca in exemplu),atunci ea va fi salvata doar in memoria de operare si poate fi apelata doar in cursul executiei.Daca se utilizeaza un pointer de tip PChar,metafila poate fi salvata pe disc,iar obiectele grafice vor putea fi utilizate in orice alt program,prin apelarea filei cu PlayMetaFile(numele filei).Acest procedeu este mai simplu si mai econo- micos decat operatiile cu arii bitmap.Exista si alte functii care opereaza cu metafile(GetMetaFile,EnumMetafile,etc.).Nu uitati sa eliberati din me- morie metafilele care nu vor mai fi utile in program !. -82- Pentru realizarea unor efecte grafice speciale,se pot utiliza functii care realizeaza un anumit aspect grafic pentru o anumita zona de ecran.Astfel functia FrameRgn deseneaza in culoarea pensulei specificate un chenar de grosimea dorita. EXEMPLU: program frame1; uses WinCRT;WinProcs; var y,z,R1,R2,B1,B2:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); R1:=CreateRectRgn(50,50,150,150); R2:=CreateRectRgn(250,50,350,150); B1:=CreateSolidBrush(RGB(250,10,10)); B2:=CreateSolidBrush(RGB(10,10,250)); FrameRgn(z,R1,B1,20,20); Frame(z,R2,B2,30,30); end. Observati ca functia traseaza chenarul spre interiorul regiunii definite, astfel incat,daca inaltimea si grosimea chenarului sunt destul de mari, intreaga regiune va fi colorata in culoarea pensulei. O functie asemanatoare este ExtTextOut,care scrie un sir de caractere in interiorul unei suprafete rectangulare pe care o coloreaza in culoarea de fond setata prin SetBkColor. EXEMPLU: program exttext1; uses WinCRT,WinProcs,WinTypes; var S:string; R:TRect; P:PChar; y,z:integer; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); S:=' Text scris in chenar '; P:=$S; R.left:=20 R.top:=100; R.right:=250; R.bottom:=200; SetBkColor(z,RGB(90,220,90)); SetTextColor(z,RGB(10,10,250)); ExtTextOut(z,70,150,2,Ptr(Seg(R),Ofs(R)),P,22,Nil); end. Observati ca pentru descrierea chenarului am utilizat o structura de tip TRect spre care am orientat un pointer cu ajtorul functiei Ptr.In chenarul astfel realizat se pot introduce siruri succesive,la fel ca intr-un obiect grafic.Functia are si optiunea prin care sirurile pot fi trunchiate auto- mat la lungimea suprafetei active(in parametrul 4, optiunea=1).In chenar se pot introduce si fonturi personalizate,sau la distente specificate prin o arie de puncte de coordonate incluse in ultimul parametru al functiei. -83- Unitatea WinProcs contine si alte functii GDI,destinate pentru a realiza o interfata grafica cu utilizatorul.Descifrarea si aplicarea acestora va fi un exercitiu extrem de util pentru cititori.Unele dintre functii,au un numar destul de mare de parametrii,dar cu putina rabdare se poate descifra semnificatia si rostul fiecaruia dintre ei.Este extrem de important ca fiecare viitor programator sa poata lucra singur,cu manualul Help.Nu va rezumati sa copiati exemplele prezentate.Dezvoltati cat mai multe exemple sau aplicatii asemenatoare.Pastrati toate programele si exercitiile fun- ctionale,nu se stie cand va vor fi de folos.Daca sunteti mai avansati in programare,dezvoltati functii,proceduri,algoritmi sau chiar unitati pe care sa le puteti apoi include in programele viitoare. MENIURI SI POPUPURI Un prim pas pentru trecerea de la programarea liniara,la cea structura- ta il reprezinta formarea si utilizarea barelor de meniuri si a meniurilor popup,care permit prin simpla selectare cu mouse-ului a unei pictograme grafice,punerea in executie a unui algoritm sau chiar a unui program. Se pot utiliza obiecte gata definite (meniuri standardizate),sau se pot construi meniuri personalizate,adaptate dorintelor si necesitatilor de moment ale programatorului.Chiar daca dispuneti de o colectie impresio- nanta de obiecte gata definite,este bina sa stiti sa programati un meniu, sau un meniu popup,cu care sa puteti executa unul sau mai multe programe. Meniurile se includ intr-o anumita fereastra,care poate fi creata de catre programator,sau poate fi o fereastra standard,predefinita,preluata din unitatea de resurse OWindows.Fereastra care va contine meniul,nu numai ca poate fi creata,dar poate fi si deplasata sau redimensionata,cu aju- torul functiei MoveWindow. EXEMPLU: program window1; uses WinCRT,WinProcs; var y,z,n:integer; begin InitWinCRT; y:=CreateWindow('LISTBOX','Text',5,10,10,200,200,hInstance,Nil); z:=GetDC(y); ShowWindow(y,4); UpdateWindow(y); for n:=1 to 8 do begin MoveWindow(y,n*30,n*30,200-10*n,200-10*n,FALSE); TextOut(z,10,30,'Text scris in fereastra !',25); TextOut(z,10,80,'Tastati ENTER !',15); readln; end; DestroyWindow(y); end. Fereastra creata este afisata cu ShowWindow,actualizata cu UpdateWindow si la final este eliberata din memorie (distrusa) cu DestroyWindow. Fereastra care va fi aleasa ca gazda pentru meniul creat trebuie sa fie dimensionata si amplasata astfel incat accesul la meniu sa fie cat mai simplu si cat mai facil (toate optiunile sa fie vizibile). -84- Pentru a inchide o fereastra,se poate utiliza fie patratelul din coltul stanga sus al ferestrei,fie functia CloseWindow.Fereastra va fi minimi- zata si pastrata pe bara de jos a ecranului,de unde poate fi reafisata cu functia ShowWindow.Se utilizeaza pentru a elibera ecranul. EXEMPLU: window2; uses WinCRT,WinProcs; var y,n:integer; t1,t2:longint; begin InitWinCRT; y:=GetActiveWindow; for n:= 1 to 3 do begin writeln('Tastati ENTER !'); ShowWindow(y,4); readln; CloseWindow(y); t1:=GetCurrentTime; repeat t2:=GetCurrentTime; until t2>(t1+2000); end; ShowWindow(y,4); writeln('Inchideti fereastra); end. Bucla repeat...until creaza o intarziere de 2 secunde (2000 de miimi), astfel incat operatia de minimizare sa fie usor de evidentiat. Pentru crearea unui meniu sunt necesare functiile CreateMenu,AppendMenu si SetMenu,la care se adauga optional HiliteMenuItem. Exemplu: program meniu1; uses WinCRT,WinProcs,WinTypes; var y,m:integer; begin InitWinCRT; y:=GetActiveWindow; ShowWindow(y,4); UpdateWindow(y); m:=CreateMenu; AppendMenu(m,MF_STRING,1,'Optiunea 1'); AppendMenu(m,MF_STRING,2,'Optiunea 2'); SetMenu(y,m); HiliteMenuItem(y,m,1,MF_HILITE); DestroyMenu(m); end. Observati ca meniul ramane afisat si dupa eliberarea din memorie,dar nu mai poate fi activat.Prima optiune este afisata ca si cand ar fi fost selectata,deoarece am apelat functia HiliteMenuItem. Asadar,crearea unui meniu este extrem de simpla.Aplicarea si utilizarea meniului este insa putin mai comlexa si face apel la sistemul de mesaje automate prin care sistemul Windows contabilizeaza fiecare actiune sau comanda,fiecare tasta sau deplasare ori activare a mouse-ului etc. -85- Sistemul de operare Windows,este un sistem complex,care tine evidenta permanenta a unui numar foarte mare de parametri interni,dar si al tutu- ror operatiilor executate de utilizator.Pentru fiecare operatie,sistemul elibereaza un mesaj,care se va aduna sub forma de stiva,intr-un tampon de memorie special creat,care se asociaza cu fiecare fereastra activa. Astfel,se poate reconstitui cronologic fiecare actiune,se poate stabili ordinea operatiilor care au avut loc succesiv dar in ferstre diferite, sau se poate realiza comunicarea dintre doua sau mai multe programe care se deruleaza in paralel dar in ferestre diferite.Acest sistem de mesaje, ofera sistemului Windows o superioritate neta fata de alte sisteme, deoarece permite supravegherea proceselor si cooperarea dintre programe. Mesajele Windows referitoare la operatiile dintr-o fereastra sunt de fapt niste constante,al caror nume incepe cu WM_xxx(EXEMPLE: WM_ACTIVATE, WM_CHAR,WM_CLEAR,WM_CLOSE,WM_COMMAND,WM_COPY,WM_CREATE,WM_DESTROY, WM_ENABLE,WM_INITMENU,WM_KEYDOWN,WM_MOVE,WM_PAINT,WM_QUIT,WM_SIZE,WM_TIMER etc. ). Pentru fiecare operatie din fereastra,sistemul elibereaza un astfel de mesaj,care sa va adauga in stiva de memorie sub forma de lant de operatii. Cu ajutorul acestor mesaje,sistemul stie daca o fereatra a fost creata, afisata,deplasata,inchisa sau actualizata si in ce moment exact anume. Pentru a identifica cel mai recent mesaj eliberat de sistem de poate utiliza functia GetMesage. EXEMPLU: program window3; uses WinCRT,WinProcs,WinTypes; var y,z,m:integer; MS:TMSG; begin InitWinCRT; GetMesaage(MS,0,0,30000); writeln('Codul ferestrei este:',MS.hwnd); writeln('Parametrul wParam este:',MS.wParam); writeln('Byte-ul inferior lParam=',LOWORD(MS.lParam)); writeln('Byte-ul superior lParam=',HIWORD(MS.lParam)); writeln('timpul sistemului este:',MS.time); writeln('Pozitia x pt. mouse este:',MS.pt.x); writeln('Pozitia y pt. mouse este:',MS.pt.y); end. Functia utilizeaza o structura de tip TMSG (definita in WinTypes) in care arhiveaza parametrii de mai sus.La apelarea functiei,se vor citi din stiva ultimi parametri arhivati la tipul respectiv.Pentru parametrii de tip word se pot utiliza functiile LOWORD si HIWORD pentru a separa cele doua valori aferente byte-ului inferior si respectiv superior din word. Dupa cum se observa in paramterul time,timpul este determinat in miimi de secunda (vezi GetCurrentTime),astfel incat gradul de discriminare dintre doua operatii succesive este de ordinul unei miimi de secunde in ceea ce priveste momentul executiei unei anumite operatii.Fiecare operatie va determina eliberarea unui anumit mesaj,care va modifica valoarea unuia dintre acesti parametri.In cazul concret al meniurilor,prin selectarea unuia dintre meniuri se elibereaza mesajele: WM_COMMAND,WM_INITMENU si WM_MENUSELECT care vor modifica parametrul wParam,astfel incat sa se poata identifica meniul care a fost selectat cu ajutorul mouse-ului. -86- Un exercitiu extrem de intuitiv este urmatorul: EXEMPLU: program window5; uses WinCRT,WinProcs,WinTypes; var y,z,m:integer; MS:TMSG; begin InitWinCRT; y:=GetActiveWindow; for m:=1 to 10 do begin clrscr; writeln('Deplasati mouse-ul(fara click) si tastati ENTER !'); GetMessage(MS,0,0,30000); writeln('Pozitia mouse-ului este:'); writeln('x=',MS.pt.x); writeln('y=',MS.pt.y); readln; end; end. Utilizand sistemul de mesaje,optiunile meniului pot fi selectate si acti- vate succesiv,utilizand o bucla de repetitie pentru citirea mesajelor. EXEMPLU: program window4; uses WinCRT,WinProcs,WinTypes; var y,z,m:integer; MS:TMSG; t1,t2:longint; begin InitWinCRT; y:=GetActiveWindow; z:=GetDC(y); ShowWindow(y,4); UpdateWindow(y); m:=Createmenu; AppendMenu(m,MF_STRING,1,'Optiunea 1'); AppendMenu(m,MF_STRING,2,'Optiunea 2'); SetMenu(y,m); t1:=GetCurrentTime; repeat GetMessage(MS,0,0,30000); TranslateMessage(MS); DispatchMessage(MS); if MS.wParam=1 then writeln('Meniul 1 a fost activat !'); if MS.wParam=2 then writeln('Meniul 2 a fost activat !'); until t2>(t1+5000); writeln('Inchideti fereastra !'); DestroyMenu(m); end. In intervalul de 5 secunde al buclei de repetitie,selectati cu mouse-ul cele doua optiuni,pentru a sesiza modul de activare. -87- Meniurile popup pot fi create cu CreatePopup si pot fi izolate sau pot fi atasate unei bare de meniuri.Se afiseaza cu SetMenu sau TrackPoupupMenu. EXEMPLU: program meniu2; uses WinCRT,WinProcs,WinTypes; var y,m,p1,p2:integer; begin InitWinCRT; y:=GetActiveWindow; ShowWindow(y,4); UpdateWindow(y); p1:=CreatePopupMenu; p2:=CreatePopupMenu; AppendMenu(p1,MF_STRING,7,'Popup 1'); AppendMenu(p2,MF_STRING,8,'Popup 1'); SetMenu(y,p1); TrackPopupMenu(p2,1,200,200,0,y,Nil); DestroyMenu(p1); DestroyMenu(p2); end. Pentru a atasa un meniu popup la o bara de meniuri,AppendMenu va utiliza flag-ul MF_POPUP pentru meniul la care se va atasa meniul popup. EXEMPLU: program meniu3; uses WinCRT,WinProcs,WinTypes; var y,m,p:integer; begin InitWinCRT; y:=GetActiveWindow; ShowWindow(y,4); UpdateWindow(y); m:=Createmenu; p:=CreatePopupMenu; AppendMenu(m,MF_STRING,1,'Optiunea 1'); Appendmenu(m,MF_POPUP,p,'Optiunea 2'); AppendMenu(p,MF_STRING,3,'Popup 1'); AppendMenu(p,MF_STRING,4,'Popup 2'); SetMenu(y,m); readln; DestroyMenu(m); DestroyMenu(p); end. In exemplu,meniul popup este atasat la optiunea 2.Selectati cele doua optiuni,cu mouse si observati pozitia meniului popup.Odata declarat, meniul Popup poate fi afisat si in orice alta pozitie,apeland functia TrackPopupMenu. Meniurile popup se mai numesc si meniuri derulante si prezinta o serie de avantaje: pot fi afisate pe ecran in orice pozitie,pot fi strese de pe ecran cu un clic de mouse in afara meniului,nu ocupa spatiu exceden- tar(bara de meniu ocupa un rand intreg si pentru un singur meniu) si pot fi implementate cu usurinta in orice interfata grafica . Activarea si asocierea de functii,programe si operatii,pentru fiecare element al meniului popup este insa putin mai laborioasa. -88- EXEMPLU: program meniu4; uses WinCRT,WinProcs,WinTypes; var y,p:integer; MS:TMSG; t1,t2:longint; begin InitWinCRT; y:=GetActiveWindow; ShowWindow(y,4); UpdateWindow(y); MoveWindow(y,0,0,600,400,TRUE); p:=CreatePopupMenu; AppendMenu(p,MF_STRING,11,'Popup 1'); AppendMenu(p,MF_CHECKED,21,'Popup 2'); AppendMenu(p,MF_STRING,55,'Popup 2'); t1:=GetCurrentTime; repeat TrackPopupMenu(p,2,200,200,0,y,Nil); PeekMessage(MS,0,0,0,PM_REMOVE); TranslateMesage(MS); DispatchMessage(MS); t2:=GetCurrentTime; if WM_COMMAND >0 then begin if (LOWORD(MS.lParam) >198) and (LOWORD(MS.lParam) <285) then begin MesageBeep(1); if (HIWORD(MS.lParam) >175) and (HIWORD(MS.lParam) <195) then writeln('Meniul 1 a fost activat'); if (HIWORD(MS.lParam) >195) and (HIWORD(MS.lParam) <214) then writeln('Meniul 2 a fost activat'); if (HIWORD(MS.lParam) >214) and (HIWORD(MS.lParam) <225) then writeln('Meniul 3 a fost activat'); end; end; until t2>(t1+5000); DestroyMenu(p); end. Si acest exemplu utilizeaza tot o bucla de repetitie si mesajele de stare expediate automat de fereastra Windows,dar in locul parametrului wParam, utilizeaza parametrul lParam,respectiv byte-ul de nivel inferior si cel de nivel superior al acestui parametru,care reflecta coordonatele x si y ale mouse-ului in momentul selectarii unui meniu (mesajul WM_MenuSelect modifica lParam in momenului unui click de mouse in meniu).Pentru a uti- liza coordonatele mouse-ului,este foarte important ca atat fereastra cat si meniul popup sa respecte o pozitie fixa de afisare astfel incat sa se poata utiliza o arie de selectie in interiorul careia sa poata fi selectat meniul popup (de obicei aceasta arie este identica cu cea a meniului popup corespunzator,dar nu obligatoriu).Se pot utiliza diverse combinatii ale mesajelor de tip WM_....,in functie de scopul propus.De exemplu,un meniu popup poate fi afisat in momentul in care intervine o eroare de executie. -89- Atunci cand un meniu urmeaza sa fie utilizat in repetate randuri,sau in programe diferite,cea mai simpla modalitate este sa creati o fila de resurse care sa contina definitia meniului.Pentru crearea unei astfel de file se pot utiliza instructiunile MENU si POPUP si utilitarul Resource Workshop din meniul Tools al programului Borland Pascal. EXEMPLU: selectati meniul Tools,apoi Resource Workshop,apoi File,apoi New project,alegeti tipul de fila .RES,apoi selectati meniul Resource, apoi New,alegeti tipul de resursa MENU,aopi Ok,apoi selectati din nou meniul Resource,alegeti optiunea Edit as Text iar cand apare fereastra MENU:MENU_1 inlocuiti textul din fereastra cu cel dorit de d-voastra,de exemplu: resursa1 MENU BEGIN MENUITEM "&Supa",100 MENUITEM "S&alata",101 POPUP "&Gustari" BEGIN MENUITEM "&Peste",200 MENUITEM "P&iept de pui",201,CHECKED POPUP "Fripturi" BEGIN MENUITEM "&Cotlet de porc",301 MENUITEM "Co&stita de porc",302 END END MENUITEM "&Desert",103 END Compilati fila si daca nu se returneaza nici un mesaj de eroare,salvati fila cu un nume oarecare,de exemplu meniudef.res. Pentru a utiliza meniul astfel definit intr-un program,fila de resurse trebuie inclusa cu comanda de precompilare {$R + numele filei} iar meniul trebuie incarcat cu functia LoadMenu. EXEMPLU: program meniu5; uses WinCRT,WinProcs,WinTypoes; ($R meniudef} var h:integer; begin InitWinCRT; h:=LoadMenu(hInstance,'resursa1'); SetMenu(GetActiveWindow,h); end. Nu uitati sa eliberati meniul cu DestroyMenu,atunci cand nu mai este nece- sar.Eventual utilizati o functie destructor care elibereaza automat toate resursele preluate din alte file,sau chiar toate obiectele create. In acest mod,un anumit meniu poate fi utilizat in mai multe programe,cu maxim de economie de programare.In mod similar,meniul dintr-o fila de resurse poate fi adaptat astfel incat sa corespunda noilor necesitati. Practic,se face economie de spatiu si de munca inutila.Meniul astfel definit poate fi inclus in lista de parametri ai unei ferestre,iar dupa inregistrarea clasei respective,tipul respectiv de fereastra va utiliza intotdeauna meniul din fila de resurse atribuita clasei sale. -90- Meniurile pot fi si personalizate,astfel incat sa contina imaginea grafica dorita,utilizand imagini de tip BitMap.Cea mai simpla cale este de a crea o fila de resurse care sa contina imaginea Bitmap dorita,in acelasi mod in care s-a realizat si fila de resurse pentru meniu. EXEMPLU: Din meniul Tools,selectati Resource Workshop,apoi File,New pro- ject,alegeti tipul de proiect .BMP,apoi OK,selectati dimensiunile in pixeli ai ariei BMP (exemplu 64x64) si numarul de culori (256),apoi OK, si utilizati instrumentele de tip Paint pentru a realiza desenul dorit, la care adaugati textul dorit(cu caseta T),dupa care salvati fila cu un nume oarecare si cu extensia .res (Exemplu: meniubmp.res).In continuare, fila de tip RES resource Object va putea fi incarcata cu {$R...numele}. EXEMPLU: program meniu6; uses WinCRT,WinProcs,WinTypes; var y,p,m,h:integer; b:longint; {$R meniubmp} begin h:=hInstance; WindowOrg.x:=350; WindowOrg.y:=200; y:=CreateWindow('Edit',' BitMap ',WS_BORDER,0,0,600,500,h,Nil); ShowWindow(y,4); UpdateWindow(y); b:=LoadBitMap(hInstance,'BITMAP_1'); m:=CreateMenu; AppendMenu(m,MF_STRING,1,'Meniul 1'); AppendMenu(m,MF_BITMAP,2,PChar(b)); SetMenu(y,m); InitWinCRT; DeleteObject(p); DeleteObject(m); DeleteObject(b); end. In continuare,meniul poate fi activat si utilizat la fel ca si un meniu oarecare.Daca sunt necesare mai multe imagini BitMap,pentru fiecare optiune din meniu,se va crea o fila de resurse separata,pentru fiecare imagine BitMap utilizata.Imaginile bitmap astfel realizate sunt asemana- toare cu iconitele (icons) dar au dimensiuni variabile si proprietati distincte.Meniul creat cu ajutorul imaginilor de tip BitMap se va adapta astfel incat sa poata cuprinde imaginea din fila de resurse.Meniul poate contine ambele tipuri de definitii (vezi exemplul). Pentru programele mari,in care meniurile au definitii complexe,este bine sa se utilizeze functii constructor,sau sa se includa definitia intregului meniu intr-o fila separata,executabila.In acest mod,programele care vor include meniul respectiv vor fi mult mai usor de depanat (in prima etapa se va verifica fila care contine meniul si doar in etapa secundara se vor verifica functiile apelate din meniu. Pentru specificarea conditiilor de selectie a unui meniu,verificati cu atentie intreaga gama de mesaje de tip WM... pana cand identificati tipul de mesaj care corespunde cel mai bine necesitatilor d-voastra.Pentru operatii rapide se va prefera intotdeauna functia Peekmessage. -91- BUTOANE,BARE DE DEFILARE,CURSOARE,ICONITE Ferestrele Windows pot fi incluse una in alta.In acest caz,fereastra principala poarta numele de fereastra parinte iar cea interioara poarta numele de fereastra descendenta (fereastra copil). Ferestrele pot fi cu aspect diferit,determinat de parametrul de clasa al ferestrei (ClassName),prin care se specifica daca fereastra nou creata va fi de tip buton,fereastra de editare,fereastra statica,fereasta cu bare de derulare sau lista de derulare a optiunilor. Butoanele pot fi incluse si activate din interiorul unei alte ferestre. EXEMPLU: program buton1; uses WinCRT,WinProcs,WinTypes; var b1,b2,w,h:integer; MS:TMSG; t1,t2:longint; begin Randomize; h:=hInstance; InitWinCRT; w:=GetActiveWindow; UpdateWindow(w); MoveWindow(w,50,50,500,400,TRUE); b1:=CreateWindow('BUTTON','Elipse',BS_PUSHBUTTON,100,100,90,50,w,0,h,Nil); b2:=CreateWindow('BUTTON','Sterge',BS_PUSHBUTTON,300,100,90,50,w,0,h,Nil); ShowWindow(b1,4); ShowWindow(b2,4); t1:=GetCurrentTime; repeat GetMessage(MS,0,0,0); TranslateMessage(MS); DispatchMessage(MS); t2:=GetCurrentTime; if MS.wparam=1 then begin if (MS.pt.x >100) and (MS.pt.x <200) then begin if (MS.pt.y >100) and (MS.pt.y <150) then Ellipse(GetDC(w),Random(200),Random(200),300,300); end; if (MS.pt.x >300) and (MS.pt.x <400) then begin if (MS.pt.y >100) and (MS.pt.y <150) then clrscr; end; end; until t2>(t1+10000); writeln('Sfarsit...inchideti fereastra !'); DeleteObject(b1); DeleteObject(b2); end. Cele doua butoane sunt functionale timp de 10 secunde(bucla repeat/until). -92- Pentru ca butoanele sa fie functionale pe o perioada de timp nedeter- minata se utilizeaza o bucla similara,la care se se specifica o anumita conditie de inchidere,(De exemplu: until x=77) apoi se seteaza valoarea initiala a parametrului si se adauga un buton care sa asigure satisface- rea conditiei (De exemplu: x=77).In continuare,butoanele pot fi utilizate la infinit,pana cand se apasa butonul care satisface conditia.Atentie insa,sa nu formati bucle infinite sau sa nu utilizati valori care pot sa apara accidental si in timpul executiei programelor. O alta clasa de fereastra este clasa STATIC.Acest tip de ferestre nu accepta intrari de date de la mouse sau de la tastatura si nu transmite mesaje de tip WM_COMMAND.Se utilizeaza mai ales pentru a afisa mesaje fixe (gen Help) sau pentru a realiza suportul pentru alte ferestre de tip descendent in cadrul unor structuri mai complexe de dialog. EXEMPLU: program static; uses WinCRT,WinProcs;WinTypes; var b,h,w:integer; begin InitWinCRT; w:=GetActiveWindow; MoveWindow(w,50,50,500,400,TRUE); h:=hInstance; b:=CreateWindow('STATIC','FOND',WS_BORDER,100,100,400,200,w,0,h,Nil); ShowWindow(b,4); UpdateWindow(b); writeln; TextOut(GetDC(b),40,40,'Text in fereastra',17); end. Observati ca fereastra nu poate fi activata cu mouse.Se utilizeaza mai ales pentru a afisa mesaje fixe gen:titlul,versiunea si autorul unui program,mesaje de eroare,indicatii pentru utilizare etc.Deasemenea,se utilizeaza ferestrele de tip static pentru a asigura fereastra principala a interfetelor grafice complexe formate din mai multe ferestre de dialog, deoarece ferestrele de tip static nu primesc si nu transmit mesaje si nu exista riscul de a corupe mesajul discriminativ printr-un click de mouse in afara ferestrei de dialog.Puteti exersa diferitele stiluri de afisare a textului intr-o fereastra de tip static.Se recomanda utilizarea acestui tip de fereastra ori de cate ori doriti doar sa afisati un text,fara nici o alta interactiune cu celelalte ferestre.Daca utilizati ferestre din alta clasa,exista intotdeauna si riscul de a corupe unul sau mai multe dintre mesajele interne de tip WM...(Exemplu: daca fereastra in care afisati mesajul se suprapune peste o fereastra de dialog cu butoane,este posibil ca mesajele din fereastra de mesaje sa corupa wParam si lParam utilizati si pentru selectia butoanelor).Ferestrele de tip static pot sa ramana afisate,fara sa existe riscul de a transmite accidental mesaje catre alte ferestre sau care alte structuri din program.Culoarea utilizata este cea setata pentru sistemul Windows (implicit gri). Stilurile de afisare pentru ferestrele statice sunt:SS_BLACKFRAME,SS_CENTER SS_BLACKRECT,SS_GRAYFRAME,SS_GRAYRECT,SS_ICON,SS_LEFT,SS_NOPREFIX etc. Experimentati si alegeti stilul preferat pentru ferestrele de mesaje. -93- Pentru ca fereastra dorita sa utilizeze si bare de defilare,se poate utiliza clasa de ferstre SCROLLBAR cu stilurile WS_VSCROLL si WS_HSCROLL. EXEMPLU: program bara1; uses WinCRT,WinProcs,WinTypes; begin InitWinCRT; w:=GetActiveWindow; MoveWindow(w,50,50,500,400,TRUE); h:=hInstance; b:=CreateWindow('SCROLLBAR','1',WS_VSCROLL,100,100,400,200,w,0,h,Nil); ShowWindow(b,4); UpdateWindow(b); writeln; TextOut(GetDC(b),40,10,'Text in fereastra',17); end. Pentru ca bara de defilare sa fie functionala trebuie sa scrieti o proce- dura in care sa preluati mesajele ferstrei si sa dirijati editarea in functie de pozitia butonului.Daca nu stiti sa scrieti procedura,este mai bine sa va multumiti cu fereastra implicita (cea din InitWinCRT). Clasa MDICLIENT (MDI=Multiple Document Interface) permite utilizarea unor ferestre de tip multiducument asemenatoare cu fereastra Desktop din Windows.Acest gen de fereastra primeste mesaje de la toate ferestrele descendente,dar nu poate fi inclusa in alta fereastra. EXEMPLU: program MDI1; uses WinCRT,WinProcs,WinTypes; var b,h,w:integer; begin InitWinCRT; w:=GetActiveWindow; MoveWindow(w,50,50,500,400,TRUE); h:=hInstance; b:=CreateWindow('MDICLIENT','1',WS_CHILD,100,100,400,200,0,0,h,Nil); ShowWindow(b,4); UpdateWindow(b); writeln; TextOut(GetDC(b),10,10,'Text in fereastra',17); end. Executati programul cu fereastra Borland Pascal micsorata,astfel incat sa se vada iconita My Computer.Observati ca textul va fi scris direct pe Desktop,peste iconita My Computer,in coltul din stanga sus al ecranului. Pentru a strege textul,deplasati orice fereastra (de exemplu fereastra inactiva) deasupra textului si apoi inchideti fereastra. Ferestrele de tip MDICLIENT sunt foarte usor de definit,dar utilizarea mesajelor primite de la ferestrele de tip descendent poate fi uneori destul de anevoioasa,deoarece toate ferestrele trimit alelasi tip de mesaje.Cel mai bine este sa combinati coordonatele X si Y cu parametrul temporal care discrimineaza momentul in care a fost activata una dintre ferstrele descendente. -94- O alta clasa de ferestre este clasa LISTBOX,care afiseaza sirurile sub forma de lista,intr-o caseta care permite derularea acestor siruri. EXEMPLU: program listbox1; uses WinCRT,WinProcs,WinTypes; var f,h,w:integer; begin InitWinCRT; w:=GetActiveWindow; MoveWindow(w,50,50,500,400,TRUE); h:=hInstance; f:=CreateWindow('LISTBOX','Lista',LBS_STANDARD,90,90,200,100,w,0,h,Nil); ShowWindow(f,4); UpdateWindow(f); writeln; TextOut(GetDC(f),0,0,'Prima optiune din lista',23); TextOut(GetDC(f),0,16,'A doua optiune',14); end. Pentru manevrarea datelor din casta se vor utiliza mesajele Windows si functiile care prelucreaza aceste mesaje(Getmessage,PeekMessage,SetFocus, sendMessage) pentru mesajele de tip LB...(LB_ADDSTRING,LB_DELETESTRING, LB_DIR,LB_FINDSTRING,LB_GETTEXT etc. Clasa COMBOBOX este utilizata pentru a realiza o combinatie dintre o fereastra LISTBOX si un buton de control de tip selectie pentru siruri. EXEMPLU: program combobox1; uses WinCRT,WinProcs,WinTypes; var b,h,w:integer; begin InitWinCRT; w:=GetActiveWindow; MoveWindow(w,50,50,500,400,TRUE); h:=hInstance; b:=CreateWindow('COMBOBOX','1',WS_BORDER,100,100,400,200,w,0,h,Nil); ShowWindow(b,4); UpdateWindow(b); writeln; TextOut(GetDC(b),40,40,'Text in fereastra',17); end. Ferestrele de tip COMBOBOX se utilizeaza pentru a introduce date in prima casta (butonul de selectie),sau pentru a inspecta o serie de valori posibile,dintr-o lista de alternative,prezentata in caseta LISTBOX. Prelucrarea datelor se face prin receptionarea si interpretarea mesajelor de tip CB... (Exemple: CB_ADDSTRING,CB_DELETESTRING,CB_DIR,CB_FINDSTRING, CB_GETCOUNT,CB_GETLBTEXT etc.). Clasa de fereastra de tip EDIT a fost exemplificata la exemplele GDI. Pentru toate controalele Windows de tip fereastra descendent este necesara si o bucla de repetitie care sa citeasca si sa arhiveze mesajele (care pot fi foarte numeroase),dintre care sa va utiliza cel mai discriminativ. Prin combinarea mai multor controale se realizeaza o caseta de dialog. -95- CURSOARE Indicatorul optic utilizat de dispozitivul denumit "mouse" poarta numele de cursor.Sistemul Windows dispune de un set de cursoare pe care le utilizeaza pentru diferite situatii:cursorul standard,cursorul tip text,cursorul clepsidra etc.Pentru utilizarea acestor cursoare implicite se poate utiliza functia LoadCursor si una dintre valorile:IDC_ARROW, IDC_CROSS,IDC_IBEAM,IDC_ICON,IDC_SIZE,IDC_SIZENEWS,IDC_SIZENS,IDC_WAIT, IDC_SIZENWSE,IDC_SIZEWE sau IDC_UPARROW. EXEMPLU: program cursor2; uses WinCRT,WinProcs,WinTypes; var n:integer; c:HCURSOR; t1,t2:longint; begin InitWinCRT; writeln('Cursor utilizat la dimensionarea ferestrelor !'); c:=LoadCursor(0,IDC_SIZE); SetCursor(c); ShowCursor(TRUE); t1:=GetCurrentTime; repeat t2:=GetCurrentTime; until t2>(t1+3000); end. Pentru a crea un cursor nou,personalizat,care sa va reprezinte doar pe d-voastra,puteti utiliza o fila de resurse creata cu ajutorul utilitarului Resource Workshop(File,NewProject,type .RES,Resource,New,alegeti tipul CURSOR apoi desenati cursorul dorit si salvati fila cu extensia .res [Exemplu: cursor.res ]). Pentru activarea cursorului utilizati o procedura de genul: EXEMPLU: program cursor; uses WinCRT,WinProcs,WinTypes; var i,nr:integer; t1,t2:longint; {$R cursor} begin InitWinCRT; MoveWindow(GetActiveWindow,10,10,600,450,TRUE); writeln; i:=LoadCursor(hInstance,'CURSOR_1'); t1:=GetCurrentTime; SetCursor(i); ShowCursor(TRUE); repeat t2:=GetCurrentTime; until t2>(t1+3000); end. Puteti utiliza un astfel de cursor,pentru jocuri,pentru functii grafice (verifica un anumit unghi) sau pur si simplu pentru divertisment (poate contine o litera,o cifra etc.). -96- IMAGINI BitMap (bit cu bit) -reprezinta un instrument grafic extrem de utili pentru personalizarea interfetelor grafice cu utilizatorul.Se pot utiliza pentru a schimba aspectul butoanelor sau al meniurilor,dar se pot utiliza si pentru a crea o pensula,care va utiliza modelul din aria BitMap pentru umplerea suprafetelor in care lucreaza.Cel mai simplu mod de lucru apeleaza tot la utilitarul Resource Workshop (din meniul Tools). EXEMPLU: deschideti o fila noua,de tip .RES,alegeti Resource si New,apoi alegeti tipul BITMAP,iar la dimensiunile Size alegeti o arie de 8 x 8 bytes (implicit sunt 64 x 64 ).Desenati modelul dorit si apoi salvati fila cu un nume oarecare (Exemplu: model5.res) si cu extensia .res.Apoi: program bitmap3; uses WinCRT,WinProcs,WinTypes; var w,b,c,p,r:integer; {$R model5} begin InitWinCRT; w:=GetActiveWindow; c:=GetDC(w); p:=LoadBitMap(hInstance,'BITMAP_1'); r:=CreatePatternBrush(p); SelectObject(c,r); Rectangle(c,50,50,400,300); end. Aria BitMap poate fi definita si in modul GDI si apoi redimensionata cu ajutorul functiei StretchBlt. EXEMPLU: program bitmap2; uses WinCRT,WinProcs,WinTypes; var x,y,z,p,h:integer; b:longint; begin h:=hInstance; WindowOrg.x:=350; WindowOrg.y:=200; y:=CreateWindow('EDIT','BitMap',WS_BORDER,0,0,400,300,0,0,h,Nil); ShowWindow(y,4); UpdateWindow(y); z:=GetDC(y); SetActiveWindow(y); b:=CreateCompatibleBitmap(z,150,180); p:=CreateHatchBrush(2,RGB(10,200,10)); SelectObject(z,p); SelectObject(z,b); Rectangle(z,5,5,115,35); TextOut(z,10,10,'Meniu Bitmap',12); SetStretchBltMode(z,1); StretchBlt(z,100,150,120,180,z,2,2,120,60,RGB(250,100,200)); InitWinCRT; DeleteObject(p); DeleteObject(b); end. -97- PICTOGRAME (iconite) -sunt imagini de tip bitmap,cu dimensiuni prestabilite,utilizate mai ales pentru a semnala filele de un anumit tip,sau pentru a realiza o cale scurta de acces la un anumit program (shortcut).Pictogramele se creeaza cu utilitarul Resource Workshop si se salveaza tot cu extensia .res (pentru a simplifica identificarea filei), sub forma de fila de resurse. Exemplu: din Resource Workshop deschideti o fila noua de tip .res apoi alegeti tipul ICON,selectati dimensiunea dorita (32 x 32) si numarul de culori(16 sau eventual 256),apoi realizati desenul si salvati fila cu un nume oarecare (Exemplu: iconita.res).Apoi scrieti o procedura de genul: program iconita1; uses WinCRT,WinProcs,WinTypes; var i,nr:integer; {$R iconita} begin Randomize; InitWinCRT; MoveWindow(GetActiveWindow,10,10,600,450,TRUE); writeln; i:=LoadIcon(hInstance,'ICON_1'); for nr:=1 to 10 do DrawIcon(GetDC(GetActiveWindow),Random(500),Random(300),i); end. Puteti realiza astfel o serie intreaga de iconite personalizate pe care le puteti utiliza apoi pentru organizarea filelor si fisierelor,pentru constructia interfetelor grafice sau chiar pentru a realiza mici efecte de animatie si jocuri pentru calculator. FILELE de tip STRINGTABLE (tabele din siruri de caractere) -sunt file de resurse asemenatoare cu cele prezentate pana in prezent,dar in locul imaginilor grafice contin siruri de caractere ordonate ordinal. Acest gen de file de resurse pot inlocui cu succes fisierele de tip text, atunci cand datele continute sunt in volum mic si sunt ordonate sub forma de siruri.Prezinta avantajul ca sirurile de caractere pot fi apelate independent,doar prin numarul de arhivare,iar asupra lor se pot efectua cu usurinta toate operatiile posibile reliazate de funciile de tip STRING. Sunt extrem de utile pentru salvarea mesajelor din program,sau pentru salvarea unor date de tip caracter ce urmeaza sa fie apelate de multe ori in cadrul unui anumit program.Se pot utiliza si pentru a salva diverse alte tipuri de date(date calendaristice,date necesare pentru conversii, texte de avertizare in mai multe limbi,coduri si parole,adrese si numere de telefon,adrese e-mail,date programabile sau date ce urmeaza a fi actua- lizate periodic etc.).Preluarea datelor din fila de resurse se va face sir cu sir,cu ajutorul functiei LoadString,sau se vor utiliza bucle de repetitie cu incrementare,pentru a putea prelua toate sirurile de date dintr-o fila de resurse.Pentru realizarea lor se utilizeaza tot Resource Workshop: File,New project,.RES.,Resource,New,STRINGTABLE in care se completeaza sirurile ordinal (in ordine crescatoare).Adaugarea unui sir nou se face cu Stringtable si New item iar stergerea sau schimbarea se fac cu Delete item sau Change item.Fiecare tabel va contine maxim 16 siruri de caractere formate din maxim 255 caractere per sir. -98- Scrieti un text oarecare: EXEMPLU: ID Source ID Value String 1 1 On ne voit presque rien de juste ou d'injuste 2 2 qui ne change de qualite en changeant de climat. 3 3 Trois degres d'elevation du pole 4 4 renversent tout la jurisprudence. 5 5 Un meridien decide de la verite. 6 6 Plaisante justice,qu'une riviere ou un montagne borne! 7 7 Verite en de deca des Pyrinees,erreur au dela! 8 8 BLAISE PASCAL "Penses" Apoi salvati fila cu un nume oarecare (EXEMPLU: text2.res)si cu extensia .RES si scrieti o procedura de citire de genul: program restext2; uses WinCRT,WinProcs,WinTypes,Strings; {$R text2} var w,n,v:integer; s:array[0..250] of char; begin InitWinCRT; for n:=1 to 8 do begin LoadString(hInstance,n,s,sizeof(s)); writeln(s); end; end. Sirurile din tabel pot fi citite izolat,grupat sau dupa diferiti algo- ritmi.Tabelele pot fi astfel aplicate si pentru diverse jocuri de cuvinte, rime si poezii,cuvinte incrucisate,rebus etc.Este insa preferabil sa va rezumati doar la introducerea de texte si mesaje iminent necesare in pro- gram.Cu cat filele de resurse sunt mai mici,cu atat memoria de operare este mai putin ocupata si viteza de executie a programelor este mai mare. Nu uitati sa eliberati obiectele incarcate (cu DeleteObject),imediat ce nu mai sunt necesare in program.In caz contrar,riscati sa blocati intreaga memorie de operare cu obiecte inutile si cu file de resurse inutile. Pentru textele mari,care trebuiesc citite integral,pana ca capatul filei,se va prefera intotdeauna utilizarea unui fisier de tip text. Resursele prezentate pot fi grupate in diverse structuri.Astfel,un meniu format din arii BitMap poate activa meniuri popoup care la randul lor pot deschide casete de dialog cu unul sau mai multe butoane,liste de siruri si casete combobox,iconite si imagini bitmap sugestive,cursoare sau indicatoare personalizate,efecte de animatie etc.Pentru activarea acestor resurse sunt necesare bucle de citire a mesajelor.Alegerea tipului de mesaj,algoritmul de citire si functiile de selectie formeaza partea personalizata de interpretare a datelor si trebuie sa fie implementata de catre fiecare utilizator,in functie de necesitatile sale,sau in functie de pregatirea si experienta fiecarui programator.Nu uitati insa ca mesajul ales trebuie sa fie cat mai discriminativ si cat mai usor de identificat dintre alte mesaje.Cu cat resursa respectiva primeste mai putine mesaje, cu atat va fi mai usor de identificat cel disriminativ.Evaluarea mesajului este o valoare de moment,simpla,rapida,dar...efemera! -99- Pentru a grupa mai multe controale,se poate utiliza o fereastra de tip parinte(parent) si mai multe ferestre descendente(butoane,casete etc.),sau se poate utiliza o caseta de dialog.Pentru realizarea unei casete de dia- log,cel mai simplu este sa utilizati tot Resource Workshop: EXEMPLU:-deschideti o fila noua cu New project,alegeti .RES,apoi din Resource si New alegeti DIALOG si utilizati interfata grafica pentru a construi fereastra de dialog.Verificati caseta din meniul Options cu optiunea Test dialog,apoi salvati fila cu un nume oarecare cu extensia .res (EXEMPLU dgok.res).Caseta poate fi definita utilizand instrumentele grafice,sau poate fi scrisa direct sub forma de text,alegand din meniul Resource optiunea Edit as text,dupa care scrieti textul de forma: DIALOG_1 DIALOG 18,18,142,92 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "DIALOG_1" BEGIN LTEXT "Fereastra de dialog",-1,26,11,81,34 PUSHBUTTON "OK",101,55,66,24,14 END dupa care salvati fila cu extensia .RES. Exemplul de mai sus contine cea mai simpla caseta de dialog,cu un mesaj de tip text si un buton OK.Verificati resursa grafica cu Test dialog,apoi scrieti programul sau procedura care o apeleaza astfel: program dialogbox1; uses WinCRT,WinProcs,WinTypes; {$R dgok1} var w,d,h:integer; begin InitWinCRT; h:=hInstance; w:=GetActiveWindow; MoveWindow(w,0,0,600,400,TRUE); d:=DialogBox(h,'DIALOG_1',0,Nil); EndDialog(d,1); end. Pentru ca butoanele din caseta de dialog sa fie functionale,se vor utiliza tot bucle de preluare si interpretare a mesajelor Windows,dar cu deosebirea ca mesajele sunt intrerupte in timpul activarii casetei de dia- log iar valoarea rezultata nu este returnata decat dupa apelarea functiei EndDialog.Functia DialogBox permite specificarea unei functii cu apel in- versat(ultimul parametru),care va prelua mesajele rezultate.Activarea si dezactivarea controalelor,sau depanarea buclelor poate fi uneori dificila. Daca doriti sa utilizati caseta de dialog doar pentru a afisa un mesaj simplu sau un mesaj de eroare,este mult mai simplu sa utilizati functia Message Box,care creaza caseta,apoi afiseaza si activeaza controalele: EXEMPLU: program eroare2; uses WinCRT,WinProcs,WinTypes; begin writeln('Mesaj de eroare !'); MessageBeep(4); MessageBox(GetActiveWindow,'MESAJ DE EROARE !!!',Nil,2); end. -100- Pentru deplasarea,aranjarea si rearanjarea controalelor si ferestrelor se pot utiliza diverse functii.Astfel pentru a aduce in prim plan o fe- reastra sau un control se poate utiliza functia BringWindowToTop: EXEMPLU: program top1; uses WinCRT,WinProcs,WinTypes; var n:array[1..5] of integer; x,w,h:integer; t1,t2:longint; begin h:=hInstance; InitWinCRT; w:=GetActiveWindow; MoveWindow(w,0,0,700,500,TRUE); for x:=1 to 5 do begin n[x]:=CreateWindow('EDIT','Nume',WS_BORDER,40*x,37*x,400,40*x,w,0,h,Nil); ShowWindow(n[x],4); UpdateWindow(n[x]); end; for x:=5 downto 1 do begin BringWindow ToTop(n[x]); t1:=GetCurrentTime; repeat t2;=GetCurrentTime; until t2>(t1+1000); end; writeln(' ...Tastati ENTER !!!...'); SetActiveWindow(w); readln; for x:=5 downto 1 do begin MoveWindow(n[x],15*x,29*x,40*x,30*x,TRUE); CloseWindow(n[x]); end; ArrangeIconicWindows(w); for x:=1 to 5 do OpenIcon(n[x]); end. end. Daca un anumit gen de operatie se va repeta de mai multe ori in cursul executiei programului,este mai simplu sa construiti un meniu popup,in care fiecare optiune a meniului va executa un anumit gen de operatii asupra ferestrei active.In acest fel,nu este necesar sa repetati de mai multe ori transcrierea aceluiasi cod.Exista un numar suficient de mare de functii predefinite,destinate pentru operatii cu si in ferestre si con- troale.Totusi,daca nici una dintre aceste functii predefinite nu va satis- face,puteti declara si definii functii noi,sau puteti grupa mai multe functii pentru a realiza proceduri personalizate.In acest caz,este bine sa salvati procedura si intr-un modul separat (pentru utilizari viitoare). -101- MEMORIA CLIPBOARD (memoria temporara) -este un tampon de memorie din memoria de operare,situat in afara blocului de memorie rezervat pentru programul curent.Reprezinta una dintre facili- tatile sistemului de operare Windows si se utilizeaza pentru a transfera date de la un program la altul sau dintr-un modul de program in altul. Cea mai frecvent utilizata aplicatie,o reprezinta copierea datelor cu ajutorul indicatorului mouse,cu ajutorul optiunilor Copy si Paste din meniul afisat dupa un click al butonului din dreapta.Datele copiate cu Copy se stocheaza in memoria Clipboard,iar apoi sunt eliberate la destina- tie cu ajutorul optiunii Paste. Sistemul Windows utilizeaza CLIPBRD.EXE pentu a scrie si respectiv pentru a citi file cu extensia .CLP.Filele cu extensia .CLP contin un identificator al memoriei clipboard,altul pentru definirea formatului de data,altul pentru locatia datelor si unul sau mai multe blocuri de date efective. Memoria clipboard accepta un numar mare de formate pentru date,dintre care formatele standardizate sunt: CF_BITMAP -date de tip bitmap CF_DIB -obiect cu o structura TBITMAPINFO + aria bitmap CF_DIF -Data Interchange Format CF_DSPBITMAP -date bitmap de tip privat CF_DSPMETAFILEPICT -metafile(in format privat) CF_DSPTEXT -text (format privat) CF_METAFILEPICT -metafile(structuri TMETAFILEPICT) CF_OEMTEXT -caractere OEM CF_OWNERDISPLAY -format descris de catre utilizator CF_PALLETE -palete de culori CF_PENDATA -date pentru pensula grafica (extensii Windows) CF_RIFF -Resource Interchange File Format CF_SYLK -formate tip Symbolic Link(SYLK) CF_TEXT -arii de tip caracter CF_TIFF -Tag Image File Format CF_WAVE -file pentru sunet (subset din CF_RIFF) Pentru a introduce date,memoria clipboard trebuie deschisa,eliberata de eventualele date si apoi alocata unei ferestre de lucru. EXEMPLU: program clip1; uses WinCRT,WinProcs,WinTypes; var m,w,p,z,r,c:integer; {$R model5} begin InitWinCRT; w:=GetActiveWindow; c:=GetDC(w); p:=LoadBitMap(hInstance,'BITMAP_1'); OpenClipboard(w); EmptyClipboard; SetClipboardData(CF_BITMAP,p); CloseClipboard; writeln('Aria bitmap model5 a fost incarcata in clipboard !'); end. Am utilizat o arie bitmap salvata ca fila de resursa(vezi resurse bitmap). -102- Puteti utiliza resursa creata pentru pensula grafica,dintr-un exemplu precedent,sau puteti crea o resursa noua (cu Resource Workshop). In continuare,aria bitmap incarcata in memoria clipboard,poate fi accesata si preluata din orice alt program cu ajutorul unei rutine de genul: EXEMPLU: program clip2; uses WinCRT,WinProcs,WinTypes; var w,d,r,c:integer; a:boolean; begin InitWinCRT; w:=GetActiveWindow; c:=GetDC(w); a:=IsClipboardFormatAvailable(CF_BITMAP); OpenClipboard(w); d:=GetClipboardData(CF_BITMAP); r:=CreatePatternBrush(d); SelectObject(c,r); Rectangle(c,10,50,400,300); CloseClipboard; writeln(a); end. Dreptunghiul va fi umplut cu modelul grafic din aria bitmap continuta in fila de resurse denumita model5.res. Pentru eliberarea memoriei clipboard este bine sa aveti intotdeauna la dispozitie o procedura de stergere de genul: EXEMPLU program clip3; uses WinCRT,WinProcs; var w:integer; begin InitWinCRT; w:=GetActiveWindow; OpenClipboard(w); EmptyClipboard; CloseClipboard; writeln('Memoria clipboard a fost eliberata !'); end. Executati rutina de stergere si apoi repetati procedura de preluare a datelor (clip2) si observati diferenta ! Apoi incarcati din nou memoria cu clip1 si preluati datele cu clip2. Memoria clipboard poate fi accesata din orice program,dar nu poate fi accesata simultan.Astfel,dupa deschiderea memoriei cu OpenClipboard , memoria va fi blocata pentru toate programele,pana la inchiderea cu CloseClipboard.Din acest motiv,nu este bine ca memoria clipboard sa fie deschisa in timpul executiei programului.Deschideti memoria,cititi datele, preluati sau copiati datele in programul aflat in executie si apoi inchi- deti memoria clipboard,cat mai rapid cu putinta,pentru ca alte programe, (sau alti utilizatori daca sunteti in retea) sa poata avea acces la memoria clipboard.Clipboard poate contine simultan mai multe formate. Exista si alte functii destinate pentru memoria clipboard,care va pot facilita munca de programare (vezi Clipboard Functions 3.1 din Help). -103- CRONOMETRE -sunt niste rutine automate,care trimit in mod controlat un mesaj de tip WM_TIMER,catre procesul apelant,la intervale de timp egale cu cel specifi- cat la crearea cronometrului. Un cronometru se formeaza cu functia SetTimer si se elibereaza cu fun- ctia KillTimer. Fiecare cronometru are un cod de identificare si un interval de timp,pre- stabilit pentru fiecare tact.Se pot utiliza simultan,un numar de 2-32 de cronometre,dar cu cat numarul de cronometre este mai mare,cu atat precizia de executie este mai mica.Pentru executia functiei,sistemul utilizeaza ceasul intern (setat de obicei la 1/18,2 milisecunde),astfel incat chiar daca functia permite setarea la nivel de milisecunda,acuratetea va fi mult mai mica. Pentru citirea si interpretarea mesajelor,este necesara o bucla de repetitie pentru functia GetMessage,in care mesajele se vor aduna sub forma de stiva.Scrierea,preluarea,citirea si interpretarea mesajului, urmata de executia functiei atribuite,consuma un interval oarecare de timp,astfel incat intervalul de timp pana la mesajul urmator pare mult scurtat. Puteti utiliza un numar mare de cronometre,pentru a determina executia unor procese temporizate,dar nu scontati pe o acuratete maxima.Pentru situatiile care necestia o precizie de 1 milisecunda,este de preferat functia GetCurrentTime. EXEMPLU: program timer1; uses WinCRT,WinProcs,WinTypes; var w,x:integer; t1,t2:longint; MSG:TMSG; begin InitWinCRT; w:=GetActiveWindow; SetTimer(w,1,1000,Nil); SetTimer(w,2,2000,Nil); SetTimer(w,3,3000,Nil); t1:=GetCurrentTime; repeat GetMessage(MSG,0,0,0); DispatchMessage(MSG); if MSG.wParam = 1 then writeln('tact timer 1'); if MSG.wParam = 2 then writeln(' tact timer 2'); if MSG.wParam = 3 then writeln(' tact timer 3'); t2:=GetCurrentTime; until t2>(t1+9000); KillTimer(w,1); KillTimer(w,2); KillTimer(w,3); end. Pentru a elibera memoria,cronometrele trebuiesc eliberate cu KillTimer. -104- Cu ajutorul cronometrelor se pot deschide si inchide ferestre,se pot afisa mesaje pentru un anumit interval de timp,se pot activa sa deplasa ferestrele,se pot controla in timp procesele aflate in executie,sau se poate simula un program multitasking in care mai multe procese se pot derula succesiv sub controlul unui cronometru. EXEMPLU: program timer2; uses WinCRT,WinProcs,WinTypes; var w:integer; t1,t2:longint; MSG:TMSG; begin InitWinCRT; w:=GetActiveWindow; SetTimer(w,1,2000,Nil); SetTimer(w,2,3000,Nil); t1:=GetCurrentTime; repeat GetMessage(MSG,0,0,0); DispatchMessage(MSG); if MSG.wParam = 1 then MoveWindow(w,300,300,50,50,TRUE); if MSG.wParam = 2 then MoveWindow(w,0,0,500,300,TRUE); t2:=GetCurrentTime; writeln(MSG.wParam); until t2>(t1+10000); KillTimer(w,1); KillTimer(w,2); DestroyWindow(w); end. In fereastra puteti observa mesajul trimis de cele doua cronometre,care este identic cu codul de identificare al lor (1 si 2).Observati ca pro- cesul atribuit celui de al doilea cronometru nu este executat uniform, deoarece pana la executia celei de a doua conditii a intervenit si mesajul expediat de primul cronometru,astfel incat intervalul dintre cele doua operatii pare amputat.Pentru operatiile spatiate la intervale mai mari de timp (cateva secunde),aceste mici intarzieri nu sunt sesiza- bile. Puteti executa alte bucle de preluare a mesajelor.Acuratetea executiei va fi determinata de viteza cu care sunt preluate si interpretate mesajele preluate cu GetMessage.Astfel puteti utiliza bucle de tip for...to sau while...do,etc. Numarul maxim de cronometre ce pot fi derulate in paralel este deter- minat de sistemul de operare (maxim 32 pentru Windows 95).Nu utilizati cronometrele doar de dragul de a solicita procesorul,deoarece fiecare cronometru executa un numar foarte mare de operatii si determina uzura prematura a procesorului. Cronometrele pot fi atribuite unei ferestre,sau pot fi atribuite pro- gramului aflat in derulare (cu zero in loc de codul handle a ferestrei). Nu uitati sa eliberati cronometrele cu KillTimer,in momentul in care nu mai sunt utile (procesorul se va "incalzi" mai putin !). -105- FUNCTIILE KERNEL -reprezinta modulul principal al sistemului de operare Windows si asigura functiile necesare pentru managementul memoriei,resurselor si al liniilor de executie (threads).Modulul Kernel contine un numar destul de mare de functii,dintre care in acest manual vor fi exemplificate doar cele mai simple,clare si intuitive si cele utilizate in mod frecvent pentru nece- sitati de programare curenta.Restul functiilor vor face deliciul progra- matorilor avansati Pentru a determina spatiul de memorie libera se poate utiliza functia GetFreeSpace,iar pentru a afla codul handle al procesului curent se poate utiliza functia getCurrentTask(codul de manipulare interna al procesului). EXEMPLU: program spatiu1; uses WinCRT,WinProcs; var s:longint; h:integer; begin InitWinCRT; s:=GetFreeSpace(0); h:=GetCurrentTask; writeln('Procesul curent este: ',h); writeln; writeln('Spatiul liber este de: ',s,' bytes'); end. Pentru a determina tipul de tastatura instalata se poate utiliza functia GetKeyboardType. EXEMPLU: program tastatura1; uses WinCRT,WinProcs; var nr:integer; begin InitWinCRT; nr:=GetKeyboardType(0); case nr of 1:writeln('Tastatura este:IBM PC/XT,sau compatibila (83 taste)'); 2:writeln('Tastatura este:Olivetti ICO (102 de taste)'); 3:writeln('Tastatura este:IBM AT (84 de taste) sau similara'); 4:writeln('Tastatura este:IBM Enhanced (101 sau 102 de taste)'); 5:writeln('Tastatura este:Nokia 1050 sau similara '); 6:writeln('Tastatura este:Nokia 9140 sau similara '); 7:writeln('Tastatura este japoneza '); end; end. Un alt grup de functii,ofera informatii despre programul sau aplicatia aflata in curs de executie.Astfel GetModuleFileName returneaza numele si calea completa de acces la fila executabila care contine programul aflat in executie iar GetModuleHandle returneaza codul handle al aplicatiei. In plus,functia GetModuleUsage,returneaza de cate ori a fost apelat modulul respectiv in cursul executiei ultimului program,iar functia GetNumTasks returneaza numarul de operatii aflate in executie in momentul apelarii functiei.Aceste functii sunt foarte utile pentru a lansa in executie un anumit modul,o data sau de mai multe ori,si pentru a tine evidenta operatiilor efectuate. -106- EXEMPLU: program numefila; uses WinCRT,WinProcs; var s:array[0..80] of char; h,t,u:integer; begin InitWinCRT; GetModuleFileName(hInstance,s,80); h:=GetModuleHandle(s); u:=GetModuleUsage(h); t:GetNumTasks; writeln('Numele programului este: ',s); writeln('si are codul handle: ',h); writeln('Programul a fost apelat de: ',u,' ori'); writeln('Numarul de operatii in executie= ',t); end. In mod similar,pentru a determina locatia sistemului Windows se pot utili- za functiile GetSystemDirectory si GetWindowsDirectory iar pentru a deter- mina versiunea sistemului functia GetVersion.GetTempDrive returneaza uni- tatea de memorie in care se pot salva filele temporare,iar GetWinFlags returneaza tipul de configuratie al memoriei. EXEMPLU: program sistem1; uses WinCRT,WinProcs; var s:array[0..80] of char; w:array[0..80] of char; n:char; v,fl:longint; begin InitWinCRT; GetSystemDirectory(s,80); GetWindowsDirectory(w,80); n:=GetTempDrive('x'); v:=GetVersion; fl:=GetWinFlags; writeln('Calea de acces la sistem este: ',s); writeln('Calea la directorul Windows este: ',w); writeln('Unitatea de memorie pentru file temporare este: ',n); writeln('Versiunea sistemului de operare MS-DOS este: '); writeln(HIBYTE(HIWORD(v)),'.',LOBYTE(HIWORD(v))); writeln('Versiunea sistemului Windows este: '); writeln(HIBITE(LOWORD(v)),'.',LOBYTE(LOWORD(v))); writeln('Configuratia memoriei este: '); writeln(HIBYTE(LOWORD(fl)),' ',LOBYTE(LOWORD(fl))); end. Observati ca in cazul functiilor care returneaza o valoare de tip longint codul pentru valorile returnate trebuie identificat prin separarea celor doua cuvinte (word) ce formeaza valoarea longint in bytes,cu ajutorul functiilor HIBYTE si LOBYTE si respectiv HIWORD si LOVORD.In mod similar, orice valoare exprimata pe 32 de biti(4 bytes) poate fi separata in patru valori de cate 1 byte(8 biti).Intelegerea formatului de 32 de biti este esentiala pentru programarea memoriei in sistemul MS-DOS(pt Windows) -107- Astfel,pentru executia unui program,sistemul aloca o stiva de memorie globala,in format de 32 de biti(word+word),denumita heap,in care sunt arhivate toate variabilele declarate in afara functiilor si a procedurilor si o cate o stiva de memorie mai mica,in format de 16 biti(1 word),denu- mita stack,care este asociata fiecarei functii sau proceduri si in care se arhiveaza variabilele declarate in cadrul functiei sau procedurii. Stivele de memorie alocate pentru fiecare functie si procedura poarta numele de memorie locala,iar variabilele continute sunt variabile locale. Pentru operatii asupra memoriei globale se utilizeaza functii al caror nume incepe cu Global...(GlobalAlloc,GlobalCompact,GlobalSize etc.): EXEMPLU: program globalmem1; uses WinCRT,WinProcs,WinTypes; var h,h1:integer; n,s,m:longint; begin n:=100; InitWinCRT; h:=GlobalAlloc(GHND,n); s:=GlobalCompact(0); h1:=GlobalReAlloc(h,200,GMEM_MOVEABLE); m:=GlobalSize(h1); writeln('Tamponul alocat are codul handle: ',h); writeln('Spatiul maxim alocabil este de: ',s,' bytes'); writeln('Tamponul realocat are codul handle: ',h1); writeln('Tamponul realocat are dimensiunea de: ',m,' bytes'); GlobalFree(h); GlobalFree(h1); end. Pentru operatii asupra memoriei locale se utilizeaza functii al caror nume incepe cu Local...(LocalAlloc,LocalCompact,LocalSize etc.): EXEMPLU: program localmem1; uses WinCRT,WinProcs,WinTypes; var h,h1:integer; n,s,m:integer; begin n:=64; InitWinCRT; h:=LocalAlloc(LHND,n); s:=LocalCompact(0); h1:LocalSize(h1); writeln('Tamponul alocat are codul handle: ',h); writeln('Spatiul maxim alocabil este de: ',s,' bytes'); writeln('Tamponul realocat are codul handle: ',h1); writeln('Tamponul realocat are dimensiunea de: ',m,' bytes'); LocalFree(h); Localfree(h1); end. Dimensiunea stivei de memorie locala(stack) poate fi setata cu ajutorul instructiunii STACKSIZE (Exemplu: STACKSIZE 6400 ) sau se poate utiliza valoarea implicita (5 K pentru datele mai mici de 5 K).Pentru exemplele de mai sus,memoria globala este de 16M iar cea locala de 8K . -108- Atat in memoria globala cat si in cea locala,datele pot fi arhivate si manevrate fie sub forma de variabile si constante simple,fie sub forma unor structuri mai complexe: siruri,arii de date,inregistrari,fisiere, obiecte etc. Pentru sirurile de caractere,exista functii special destinate cu aju- torul carora sirurile sunt inlocuite in memoria interna printr-un cod numeric intern,denumit atom.Cu ajutorul acestor functii,sirurile pot fi salvate in memorie si apelate doar prin codul numeric.Acest procedeu este util atunci cand programul utilizeaza un numar mare de siruri de tip constant,care urmeaza sa fie apelate in repetate randuri (mesaje etc.), deoarece tamponul de memorie interna este destul de limitat.O tabela de atomi contine implicit 37 de atomi si poate fi resetata cu InitAtomTable, dar numai in cazul tabelelor de atomi din memoria locala.Dupa ce datele salvate in atom nu mai sunt necesare,memoria se elibereaza cu DeleteAtom. EXEMPLU: program atom1; uses WinCRT,WinProcs,WinTypes; const a1:array[0..40] of char='Text inclus in primul atom'; a2:array[0..40] of char='text inclus in al doilea atom'; var a3:array[0..40] of char; var n1,n2:integer; begin n1:=AddAtom(a1); n2:=AddAtom(a2); GetAtomName(n1,a3,40); writeln(a3); GetAtomName(n2,a3,40); writeln(a3); DeleteAtom(n1); DeleteAtom(n2); end. Sirurile salvate sub forma de atomi in memoria locala pot fi apelate doar din interiorul programului respectiv.Sirurile salvate in memoria globala pot fi apelate de catre orice alt program.Pentru salvarea datelor in atomi din memoria globala se utilizeaza functii speciale cu numele Global... EXEMPLU: program atom2; uses WinCRT,WinProcs,WinTypes; const a1:array[0..80] of char='Sir in primul atom din memoria globala'; a2:array[0..80] of char='Sir in al doilea atom din memoria globala'; var a3:array[0..80 of char; var n1,n2;integer; begin n1:=GlobalAddAtom(a1); n2:=GlobalAddAtom(a2); GlobalGetAtomName(n1,a3,80); writeln(a3); GlobalGetAtomName(n2,a3,80); writeln(a3); GlobalDeleteAtom(n1); GlobalDeleteAtom(n2); end. -109- Pentru managementul resurselor,se pot utiliza urmatoarele functii: AccessResource,AllocResource,FindResource,FreeResource,LoadAccelerators, LoadBitMap,LoadCursor,LoadIcon,LoadMenu,LoadResource,LoadString,LockRe- source,SetResourcehandler,SizeOfResource. Majoritatea lor au fost deja exemplificate la descrierea resurselor. Pentru utilizarea unei resurse create cu Resource Workshop se va scrie o procedura de genul: EXEMPLU: program resursa1; uses WinCRT,WinProcs,WinTypes; var w,b,d,h1,h2:integer; {$R model1} begin InitWinCRT; w:=GetActiveWindow; d:=GetDC(w); h2:=LoadBitMap(hInstance,'BITMAP_1'); b:=CreatePatternBrush(h2); SelectObject(d,b); Rectangle(d,50,50,100,100); PatBlt(d,200,200,150,50,PATINVERT); DeleteObject(b); end. Resursele create cu Resource Workshop pot fi: Acceleratori(combinatii de taste de tip short-cut),arii de tip bitmap,cursoare,ferestre de dialog, fonturi,iconite,meniuri,tabele de siruri,si date programate de catre utilizator(RCDATA). Atunci cand fila incarcata contine mai multe resurse,se pot utiliza functiile FindResource si LoadResource pentru identificarea si incarcarea resursei,dar se prefera intotdeauna utilizarea functiei specifice. EXEMPLU: program resursa2; uses WinCRT,WinProcs,WinTypes; var w,b,d,h1,h2:integer; {$R dgok1} begin InitWinCRT; w:=GetActiveWindow; d:=GetDC(w); h1:=FindResource(hInstance,'DIALOG_1',RT_DIALOG); h2:=LoadResource(hInstance,h1); writeln('Codul handle al resursei este: ',h1); writeln('Codul handle al obiectului este: ',h2); FreeResource(h2); end. Nu uitati sa eliberati memoria,imediat ce o resursa nu mai este necesara. In cazul exempleleor izolate,spatiul de memorie este arhisuficient pentru executarea lor,dar in cazul programelor complexe,spatiul de memorie este din ce in ce mai restrans si depinde doar de experienta programatorului in ce fel poate fi utilizata memoria libera.Pentru siguranta,puteti elibera si apoi aloca un spatiu de memorie egal cu resursa,dupa care puteti bloca resursa pana la executia tuturor operatiilor in care este implicata. Este bine sa nu exagerati cu crearea si incarcarea de noi resurse. -110- Pentru managementul proceselor aflate in executie,se pot utiliza functiile denumite task functions,care ofera informatii atat despre fie- care program si operatie aflata in executie cat si despre mediul de ope- rare in care se excuta procesul respectiv. EXEMPLU: program task1; uses WinCRT,WinProcs,WinTypes,WIN31; var t:integer; o:boolean; begin InitWinCRT; writeln('Adresa segmentului de program(PDB) este: ',GetCurrentPDB); t:=GetCurrentTask; writeln('Operatia in executie este: ',t); o:=IsTask(t); writeln('operatia: ',t,' este: ',o); writeln('Numarul de operatii executate= ',GetNumTasks); writeln('Mediul de operare pentru programul curent este:'); writeln(GetDOSEnvironment); end. Pentru abandonarea de urgenta a unui program si iesirea de urgenta din mediul de operare Windows se poate apela functia ExitWindows.Cu un astfel de apel,se executa iesirea completa din Windows,iar datele din memoria de operare vor fi pierdute definitiv.O astfel de procedura poate fi apelata fie la terminarea definitiva a unui program,fie ca o masura de protectie impotriva proceselor care prezinta riscul de a corupe date importatnte din program (exemplu: rutina de iesire fortata din program in cazul unor date cu alt format decat cel prestabilit). EXEMPLU: program restart1; uses WinProcs,WinTypes; begin ExitWindows(0,42); end. Nucleul de functii denumit KERNEL,contine si alte functii,extrem de utile,cu diverse aplicatii,dar apelarea lor nu este recmandabila pentru incepatori,deoarece o mica eroare poate cauza defectarea intregului sistem de operare Windows.Astfel,functiile WriteProfile String si Writeprivate- ProfileString permit scrierea de comenzi in fila WIN.INI,dar o comanda gresita poate bloca intregul sistem Windows.In mod similar,functiile care seteaza si reseteaza sistemul de intreruperi DOS pot deregla intregul sistem de operare MS-DOS,cu consecinte fatale pentru managementul memoriei Nu este reconmandabil sa experimentati aceste functii,pe incercate!Daca doriti sa stapaniti exhaustiv toate functiile KERNEL,cautati un manual de specialiate cu toate indicatiile tehnice,sau apelati la cineva mai experi- mentat. Nucleul KERNEL contine si un grup de functii destinate exclusiv pentru depanarea programelor.Utilizarea si modul de grupare al acestor functii, fac obiectul muncii pentru analisti si programatori.Experimentati pe cont propriu aceste functii si apreciati utilitatea lor (Exemple: Debug- Break,DebugOutput,IsBad...,OutPutDebugString,SetWinDebugInfo etc.). Experimentati si functiile pentru siruri (lstrcat,lstrcpy si lstrlen). -111- SIRURI DE CARACTERE -unitatea WinProcs contine si un grup de functii destinate pentru operatii asupra sirurilor de caractere.Aceste functii,au efect asupra variabilelor de tip arie de caractere,spre deosebire de functiile din unitatea System care opereaza asupra variabilelor de tip string. EXEMPLU: program siruri3; uses WinCRT,WinProcs; var x:integer; const a:array[0..80] of char='Sir Exemplificativ AlfaNumeric 123456789'; begin writeln(a); writeln(' Scris cu majuscule:'); wrtieln(AnsiUpper(a)); writeln(' si scris cu litere mici:'); writeln(AnsiLower(a)); writeln; for x:=1 to 15 DO begin lstrcpy(a,AnsiNext(a)); writeln(a,' are lungimea= ',lstrlen(a)); end; end. Cu ajutorul acestor functii,sirurile pot fi parcurse caracter cu caracter, pot fi concatenate sau comparate,pot fi sortate si aranjate ordinal etc. EXEMPLU: program siruri4; uses WinCRT,WinProcs; var s1,s2:array[0..80] of char; n:integer; begin lstrcpy(s1,'77235'); lstrcpy(s2,'9932'); writeln('s1=',s1,' s2=',s2); writeln('Sirul concatenat este:); lstrcat(s1,s2); writeln(s1); n:=lstrcmp(s1,s2); if n < 0 then writeln('Sirul s1 are valoare ordinala mai mica decat s2'); if n = 0 then writeln('Cele doua siruri sunt identice'); if n > 0 then writeln('Sirul s1 are valloare ordinala mai mare decat sirul s2'); end. Incercati sa scrieti un program care alege si sorteaza crescator sau des- crescator un grup de siruri numerice sau alfanumerice. Functiile din acest grup se pot utiliza pentru analiza sintactica a unor texte,pentru cautarea unui anumit sir de caractere (nume de fila sau de director etc.),pentru corectarea automata a unor date (fata de un sablon),pentru editarea unor mesaje sau file de tip text,etc. -112- FUNCTII SYSTEM Pentru obtinerea unor informatii despre parametrii impliciti ai sistemului se pot utiliza functiile system GetSysColor,GetSystemMetrics,GetTickCount, iar pentru setarea culorilor functia SetSysColors. EXEMPLU: program sys1; uses WinCRT,WinProcs,WinTypes; var c,t:longint; x,y:integer; s:real; begin c:=GetSysColor(4); writeln('Valoarea RGB pentru DESKTOP = ',c); writeln('Culoarea rosie= ',GetRValue(c)); writeln('Culoarea verde= ',GetGValue(c)); writeln('Culoarea albastru= ',GetBValue(c)); x:=GetSystemMetrics(SM_CXSCREEN); y:=GetSystemMetrics(SM_CYSCREEN); writeln('Ecranul are dimensiunile: ',x,'/',y,' bytes'); t:=GetTickCount; s:=t/60000; writeln('Windows este activ de: ',s,' minute'); end. Functia GetTickCount este identica cu GetCurrentTime(cu nume mai sugestiv) FUNCTII TEXT Pentru afisarea si formatarea textului,sau pentru preluarea de informatii despre textul afisat se pot utiliza o serie de functii special destinate, care contin in identificator si cuvantul TEXT (DrawText,TextOut etc.) EXEMPLU: program text1; uses WinCRT,WinProcs,WinTypes; var w,d:integer; t:trect; f:array[0..80] of char; z:array[1..3] of integer; begin t.top:=100; t.left:=100; t.right:=300; t.bottom:=200; InitWinCRT; w:=GetActiveWindow; d:=GetDC(w); SetTextCharacterExtra(d,7); DrawText(d,'Text oarecare ',14,t,DT_CENTER); GetTextFace(d,80,f); writeln('Fereastra utilizeaza fonturi de tip: ',f); z[1]:=300; TabbedTextOut(d,150,300,'Text tabelar',12,2,z,30); end. (intre Text si...tabelar,utilizati un spatiu Tab cu tasta TAB). -113- UNITATEA STRINGS -contine functii pentru operatii cu si asupra sirurilor de caractere de tip arie de caractere si terminate cu un caracter nul(nul-terminated strings).Acest tip de siruri este utilizat de interfata API Windows, si este format din secvente de caractere de tip array[0..X] (max 65535). Pentru apelarea unitatii strings este necesara memoria extinsa incarcata cu ajutorul directivei de compilare $X+. EXEMPLU: program string1; {$X+} uses WinCRT,Strings,WinTypes; var s:string; a,b:array[0..2] of char; c:array[0..80] of char; x:integer; begin Randomize; for x:=1 to 8 do begin s:=Char(Random(26)+65); StrPCopy(a,s); StrCopy(b,a); StrCat(c,b); end; writeln('Codul generat este: ',c); end. Observati functiile StrPCopy si StrPas,care permit conversia sirurilor de tip string in arii de caractere de tip array[0..X] of char,si viceversa. Cu functiile din unitatea STRINGS se pot efectua operatii asupra datelor: EXEMPLU: program string2; {$X+} uses WinCRT,Strings,WinTypes; var s1,s2:string; a1,a2,a3:array[0..80] of char; begin s1:='Sir pentru VERIFICAREA functiilor STRINGS'; s2:='functiilor'; StrPCopy(a1,s1); StrMove(a2,a1,21); writeln('Sirul a1 este: ',a1); writeln('Sirul a2 este: ',a2); writeln('Sirul a1 comparat cu a2 returneaza: ',StrComp(a1,a2)); writeln('a2 este inculs in a1 ? = ',StrLIComp(a2,a1,21)); StrLower(a1); writeln('Acum a1 este: ',a1); writeln('acum a2 este inclus in a1 ? = ',StrLComp(a2,a1,21)); StrPCopy(a2,s2); writeln(a2,s2); writeln('acum a2 apare in a1 astfel: ',StrPos(a1,a2)); end. Incercati sa combinati functiile din unitatea Strings pentru a realiza functii si proceduri (Exemplu: cautati un anumit cuvant intr-un text). -114- PROGRAMAREA ORIENTATA SPRE OBIECT (OOP-object oriented programming) In decursul evolutiei,limbajele de programare au oferit solutii din ce in ce mai complexe,pentru rezolvarea necesitatilor de prelucrare a datelor.Aceste solutii au fost implementate progresiv,in paralel cu dez- voltarea resurselor hardware si cu acumularea de experienta in materie de formatare si structurare a blocurilor mari de date. Intr-o prima etapa,programele dispuneau de 16-64 K de memorie si de procesoare alfa-numerice (echivalente cu cel din tastatura).Aceste pro- grame erau strict liniare si efectuau operatii aritmetice sau prelucrarea elementara a unui text.O data cu aparitia procesoarelor complexe de tip 80286 si 80386 care combinau 2-3 procesoare de tip Z80,si in paralel cu extinderea memoriei de lucru,a devenit posibila structurarea datelor in blocuri mai mari,gen tabele,matrici,arii de date,inregistrari(records), structuri si proceduri,sau chiar module independente de program.O data cu aparitia acestor structuri noi de date,s-a dezvoltat si un nou procedeu de programare,denumit programare structurata sau programare modulara.Acest nou sistem de programare prezinta o serie de avantaje: 1-accesul la date este mult mai rapid 2-defectarea unui bloc de date nu afecteaza intregul program ci doar o partea sa,fiind mult mai usor de depanat 3-datele dintr-un modul nu interfereaza cu cele din alt modul 4-se incarca in memorie doar modulul aflat in executie,astfel,cu putina memorie de operare se pot executa volume mari de date 5-datele sunt mult mai usor de arhivat si de identificat 6-un modul oarecare poate fi utilizat in mai multe programe 7-un modul oarecare poate fi prelucrat in mai multe moduri simultan 8-schimbul de date se face mai usor si mai rapid 9-aplicatiile pot fi standardizate dupa un model unic 10-etc. Programarea astfel structurata,s-a bucurat de din ce in ce mai mult entu- ziasm,dar a intampinat si o serie de dificultati.Astfel,modulele incarcate in memorie,trebuiau eliberate (sterse) dupa executie,dar,modulele care preveneau din programe diferite erau scrise in formate diverse facand operatia de eliberare a memoriei extrem de dificila.In plus,comunicatia dintre modulele din programe diferite era extrem de anevoioasa,mai ales atunci cand nu existau standarde clare de comunicatie (de genul mesajelor Windows),astfel incat programatorul trebuia sa faca adevarate exhibitii pentru a putea cupla mai multe module sau proceduri din programe diferite. Pentru a inlatura aceste inconveniente,s-a introdus un nou tip de data, denumit obiect.Un obiect,este o structura de date,asemanatoare cu structu- rile din limbajul C,care permite gruparea mai multor tipuri de data,la care se adauga in plus si o serie de proceduri si functii definite special pentru obiectul respectiv.Astfel,un obiect este o structura care are si un grup de functii si proceduri,denumite metode.Cu ajutorul acestor metode obiectele se construiesc si se elibereaza singure din memorie si asigura comunicatia simpla cu alte obiecte,sau executa diferite operatii generate de receptionarea unui mesaj declansator(de la un alt obiect sau de la programul principal). Toate obiectele de acelasi fel,sunt grupate in clase de obiecte.O clasa grupeaza toate proprietetile posibile ale obiectelor respective. -115- Un obiect este doar o instanta a clasei sale,adica grupeaza doar un grup de proprietati dintre cele posibile,proprietati care sunt valabile doar la un anumit moment al executiei.Proprietatile obiectelor pot fi de doua feluri: atribute si metode.Atributele sunt definitiile care imple- menteaza obiectul iar metodele cuprind operatiile care se pot efectua asupra obiectului.Astfel,la un anumit moment dat,obiectul grupeaza o serie de atribute,iar asupra sa se pot efectua o serie de operatii(dintre cele definite pentru clasa sa,sau mostenite de la clasa ancestoare). Orice obiect se identifica printr-un nume si printr-o stare(starea obiectului grupeaza atributele sale de moment). In etapa de declarare,clasele de obiecte sunt niste entitati abstracte, virtuale (se semnaleaza cu cuvantul cheie VIRTUAL).Dupa initializarea cu valori concrete,obiectele devin obiecte reale. In cursul executiei unui program,obiectele sunt create,apoi obiectele interactioneaza intre ele prin mesaje care declanseaza diverse metode, dupa care obiectele sunt sterse din memorie pentru a face loc unor alte obiecte sau unor alte operatii si proceduri.Un obiect poate sa trimita mesaje si catre propriile metode.In acest caz,obiectul poate actiona ca si un modul sau un program independent de celelalte obiecte.Prin acest procedeu,mai multe obiecte pot prelucra datele simultan,ca si cand ar fi in executie mai multe programe simultane. O clasa de obiecte se poate realiza si prin combinarea unor alte clase de obiecte.In acest caz,obiectele rezultate mostenesc proprietatile clase- lor de obiecte din care s-au format.Obiectul descendent si cel initial vor avea o serie de proprietati comune.Se spune ca obiectele respective au in comun (share) o serie de atribute si metode. In termeni matematici,prin mostenire se intelege mecanismul prin care o clasa de obiecte A mosteneste proprietati de la clasa de obiecte B.Se spune ca "A il mosteneste pe B".In acest caz,obiectele din clasa A au acces la atributele si metodele clasei B,fara sa fie nevoie sa le redefi- neasca.Altfel spus,A este o subclasa a clasei B iar B este o superclasa a clasei A. Mostenirea multipla se refera strict la faptul ca o clasa de obiecte poate mosteni proprietati de la mai multe alte clase de obiecte.Altfel spus,o subclasa poate avea mai multe superclase (un obiect se poate forma din mai multe obiecte). Mostenirea multipla nu include si relatia inversa,prin care un obiect poate fi mostenit de catre mai multe alte obiecte,si nici situatiile in care obiectul mostenit(superclasa) este la randul sau mostenitor(subclasa) Aceste situatii sunt posibile,dar nu definesc notiunea de mostenire mul- tipla(nu afecteaza proprietatile finale ale obiectului rezultat). Situatiile de mostenire multipla pot genera conflicte de nume(identifi- cator),atunci cand proprietatile mostenite de la obiecte diferite poarta acelasi nume.In acest caz,obiectul rezultat va contine atribute sau metode diferite dar care au acelasi identificator.Pentru a evita erorile de exe- cutie,este bine sa redefiniti proprietatile mostenite cu acelasi nume, atfel incat compilatorul sa poata face discriminarea corecta (in caz contrar,compilatorul va executa primul identificator intalnit,cu rezultate imprevizibile).Acest gen de conflict de nume,poate apare si intre datele declarate public si cele declarate privat.Daca doriti sa pastrati numele originale,trebuie sa specificati explicit criteriul de executie a lor. -116- Clasele de obiecte sunt abstracte,atat timp cat sunt declarate doar virtual (fara definitii concrete).In acest caz,definirea propriu zisa urmeaza sa fie introdusa in clasele derivate(subclase).Acest gen de clase abstracte se utilizeaza doar sub forma de superclase pentru alte clase de abiecte,atunci cand nu dorim sa cream obiecte propriu zise ci doar dorim sa specificam trasaturile comune ale unor clase de obiecte.Prin acest procedeu,clasele pot fi grupate in structuri de tip arbori,graphuri etc. Elementele unui obiect au ca valoare implicita un carcater privat,adica au vizibilitate doar in cadrul obiectului respectiv.Pentru a avea vizibi- litate globala,se poate utiliza cuvantul cheie PUBLIC,caz in care pro- prietatile respective ale obiectului au vizibilitate si in afara obiectu- lui respectiv. Metodele utilizate pentru initializarea obiectului poarta numele de constructori.Constructorii au acelasi nume cu clasa de obiecte si nu returneaza valori,dar pot acepta atribute(pentru functii si proceduri). Metodele utilizate pentru eliberarea memoriei,prin distrugerea obiecte- lor construite poarta numele de destructori.Destructorii au acelasi nume cu clasa de obiecte,nu returneaza valori si nu accepta argumente. Caracterul public sau privat al datelor din obiect determina si tipul de mostenire.Astfel,dreptul de acces la membrii unui obiect poate fi public sau privat,dar exista si o forma intermediara,numita acces protejat caz in care elementele obiectului pot fi apelate in subclasele clasei de obiecte,dar nu pot fi apelate din exterior. In cazul obiectelor cu mostenire multipla,pentru distrugerea lor si eliberarea consecutiva a memoriei,destructorul obiectului trebuie sa apeleze si destructorii obiectelor pe care le mosteneste.Practic obiectul este desfacut in obiectele componente,dupa care fiecare obiect este distrus separat. Pentru a permite accesul la membrii privati ai unei clase,se pot declara clase speciale de obiecte denumite friend (prieten al clasei respective). Aceste clase vor avea acces si la membrii privati ai clasei respective, dar nu este bine de abuzat de acest gen de clase,deoarece anuleaza con- ceptul modular de organizare a datelor(daca toate datele sunt publice, programul este echivalent cu cele liniare). Clasele de obiecte pot contine mai multe moduri de abordare a aceluiasi mod de prelucrare a datelor.Aceasta caracteristica a claselor de obiecte poarta numele de polimorfism.Ca rezultat,mai multe clase de obiecte pot fi apelate pentru a efectua aceeasi operatie (eventual simultan). Pentru familiarizare cu programarea orientata pe obiect,cel mai simplu este sa utilizati obiectele predefinite,incluse in unitatile Objects, OWindows,ODialogs,OMemory,OPrinter,OStdDlgs,OStdWnds si Validate. Obiectele predefinite sunt ordonate ierarhic incepand cu TObject,care este superclasa celorlalte obiecte,din care deriva TApplication,TStream, TWindowsObject,TScroller,TPrinter,TValidator cu subclasele lor.Pentru a vedea ierarhia completa consultati intotdeauna ObjectWindows Object Hierarchy din utilitarul Help. Pentru a consulta ierarhia obiectelor din aplicatia d-voastra puteti apela utilitarul ObjectBrowser. La inceput,utilizarea obiectelor pare dificila si greoaie,dar cu putina experienta ve-ti observa ca ofera posibilitati de expresie nebanuite. Etapa cea mai dificla este ce de declarare si definire a obiectului. -117- Atunci cand clasele de obiecte sunt organizate ierarhic,este bine sa alegeti clasa obiectului dorit atfel incat sa beneficieze de cat mai multe metode mostenite de la superclasele sale.In cazul unitatii OWindows, superclasa unitatii este TObject(cu metodele Init,Free si Done),urmata de TAplication care asigura structura primara pentru toate obiectele de tip Windows.Clasa TAplication contine atributul MainWindow si respectiv metoda InitMainWindow cu ajutorul carora se initializeaza fereastra principala in care se vor afisa toate obiectele Windows.In plus,contine si metodele cel mai des apelate: Init,Run si Done,respectiv constructorul,executabilul si destructorul obiectului.Dupa declarare si definire,obictul va fi creat cu Init,va fi pus in executie cu Run si va fi sters din memorie cu Done. EXEMPLU: program obiect1; uses WinProcs,WinTypes,OWindows; type F1=object(TApplication) procedure InitMainWindow;virtual; end; procedure F1.InitMainWindow; begin MainWindow:=New(PWindow,Init(nil,'Fereastra nou creata')); end; var FF:F1; begin FF.Init(nil); FF.Run; FF.Done; end. In exemplul de mai sus,am declarat obiectul de tip TApplicatino,apoi am declarat procedura de initializare a ferestrei principale.In acest sens am utilizat pe post de constructor metoda InitMainWindow,care este constructorul implicit al ferestrei principale.Asadar,obiectul declarat este din clasa TApplication si contine o procedura de initializare.Apoi am declarat o variabila din tipul declarat (FF).Programul propriu zis, apeleaza direct metodele clasei TApplication,respectiv apeleaza Init pentru constructia obiectului,Run pentru executie si Done pentru stergere. Observati ca obiectul poate fi manevrat la fel ca orice variabila simpla, dar beneficiaza de toate atributele si metodele clasei sale.Astfel,cu o singura comanda simpla se pot executa operatii complexe.Atunci cand defi- nitia unui obiect este foarte complexa,aceasta se arhiveaza intr-o fila separata,sau intr-un modul separat,care este incarcat in memorie doar in momentul executiei,si care se sterge automat din memorie prin apelarea destructorului sau.Prin acest procedeu,programul principal va contine doar un numar limitat de comenzi,pentru a asigura un numar foarte mare de operatii (in exemplul de mai sus,programul contine doar trei linii de comanda: FF.Init,FF.Run si FF.Done). Pentru a intelege exemplul de mai sus,deschideti obiectul TApplication din utilitarul Help si observati care sunt atributele sale(Fields) si respectiv metodele sale. Pentru ca obiectul declarat sa poata efectua si alte operatii,trebuie ca in declaratia obiectului sa adaugati o procedura suplimentara in care sa specificati operatia dorita. -118- Astfel,daca in fereastra construita doriti sa introduceti date de tip text trebuie sa scrieti o procedura care identifica contextul de dispozitiv al ferestrei(cu GetDC) si apoi sa apelati functia TexOut.Acelasi rezultat se poate obtine insa si mult mai smplu,daca in locul unei ferestre principale construiti un obiect specializat,definit in unitatea auxiliara OStdWnds, cu numele de TFileWindow,conceput pentru editarea datelor de tip text. Fereastra TFileWindow are atasat si un meniu de prelucrare a datelor: EXEMPLU: program obiect2; uses WinProcs,Wintypes,OStdWnds,OWindows; type E=Object(TApplication) procedure InitMainWindow;virtual; procedure InitInstance;virtual; end; PE=^TE1; TE1=object(TEditWindow) constructor Init(AParent:PWindowsObject;ATitle:PChar); end; constructor TE1.Init(AParent:PWindowsObject;ATitle:Pchar); begin TEditWindow.Init(AParent,ATitle); Attr.Menu:Loadmenu(hInstance,'EditCommands'); end; procedure E.InitMainWindow; begin MainWindow:=new(PE,Init(nil,'Fereastra de editare')); end; procedure E.InitInstance; begin TApplication.InitInstance; HAccTable:=LoadAccelerators(hInstance,'EditCommands'); end; var E1:E; begin E1.Init(nil); E1.Run; E1.Done; end. Observati ca programul principal contine tot trei linii de comanda:Init, Run si Done,respectiv cele trei metode ale clasei TApplication.Diferenta consta in faptul ca am adaugat si o procedura de initializare a momentului executiei(InitInstance) si am inclus in fereastra principala si un obiect de tip TEditWindow.Daca executati programul,observati ca ferestra contine si un meniu cu cateva comenzi elementare de tratare a textului.Acest meniu a fost inclus in constructor cu Loadmenu(hinstance,'EditCommands'). Pentru a putea salva textul scris,trebuie sa adaugati o noua procedura in care sa apelati metoda Store,pentru obiectul TEditWindow(vezi atribute- la si metodele TEditWindow). Prin includerea obiectului TEditWindow in TApplication,obiectul rezultat beneficieaza de atributele si metodele ambelor clase,fiind usor de ini- tializat,executat si apoi eliberat din memorie. -119- Pentru editarea filelor,unitatea OStdWindows contine si un alt obiect specializat denumit TFileWindow,care contine un meniu mult mai variat si un numar mult mai mare de metode: EXEMPLU: program obiect3; uses Winprocs,Wintypes,OstdWnds,OWindows,ODialogs; type E=object(TApplication) procedure InitMainWindow;virtual; procedure InitInstance;virtual; end; PE=^TE1; TE1=object(TFileWindow) constructor Init(AParent:PWindowsObject;ATitle:PChar); end; constructor TE1.Init(AParent:PWindowsObject;ATitle:PChar); begin TFileWindow.Init(Aparent,Atitle,'EDITOR 1'); Attr.Menu:=Loadmenu(hInstance,'FileCommands'); end; procedure E.MainWindow; begin MainWindow:=New(PE,Init(nil,'Fereastra de editare')); end; procedure E.InitInstance; begin TApplication.InitInstance; if Status = 0 then HAccTable:=LoadAccelerators(hInstance,'FileCommands'); end; var E1:E; begin E1.Init(nil); E1.Run; E1.Done; end. Observati ca fereastra deschisa are in meniu si optiunea File,care permite deschiderea si arhivarea filelor.Cu ajutorul acestui obiect,se pot crea si arhiva file de tip text.Practic acest obiect este similar cu un program complet de editare si arhivare a textelor.Meniul a fost incarcat cu co- manda LoadMenu(hinstance,'FileCommands') si apeleaza la randul sau la obiecte din unitatea ODialogs,pentru a interactiona cu utilizatorul. Principiul este acelasi:se declara tipul de obiect si procedurile sale, apoi se declara o variabila din tipul respectiv cu care se lucreaza in continuare apeland metodele obiectului.In acest caz,obiectul este de tip TFileWindow si mosteneste si clasa TApplication.Observati ca obiectul de tip TFileWindow contine mult mai multe metode decat TEditWindow.Astfel, cu un program aproape identic,se obtine un numar mult mai mare de operatii posibile(dar cu un consum mai mare de memorie de operare,deoarece in memoria de operare se incarca in plus si unitatea ODialogs,respectiv toate metodele auxiliare).Acest gen de selectie,este in sarcina programatorului care decide daca face sau nu face economie de memorie de operare. -120- Pe langa functiile implicite,definite in obiect sub forma de metode, pentru ca obiectul apelat sa execute una sau mai multe operatii,trebuie ca programatorul sa adauge una sau mai multe functii sau proceduri,care sa execute obiectul.Astfel,de exemplu,pentru a utiliza functiile grafice intr-o fereastra de tip obiect,trebuie adaugata o procedura in care se identifica contextul grafic de dispozitiv,se creaza si selecteaza pensula, dupa care se specifica functiile grafice dorite. EXEMPLU: program obiect4; uses WinProcs,WinTypes,OWindows; var b:integer; type F1=object(TApplication) procedure InitMainWindow:virtual; end; pFereastra=^TF1; TF1=object(TWindow) procedure Paint(PaintDC:HDC;var PaintInfo:TPaintStruct);virtual; end; procedure F1.InitMainWindow; begin MainWindow:=New(PFereastra,Init(nil,'Fereastra nou creata')); end; procedure TF1.Paint(PaintDC:HDC;var PaintInfo:TPaintStruct); begin b:=CreateSolidBrush(RGB(200,10,20)); SelectObject(PaintDC,b); TextOut(PaintDC,50,20,'Desene su text in fereastra !',29); Rectangle(PaintDC,100,100,200,200); Ellipse(PaintDC,250,150,370,200); end; var FF:F1; begin FF.Init('Fereastra grafica'); FF.Run; FF.Done; end. In exemplul de mai sus am definit un obiect de tip TApplication pentru a beneficia de MainWindow si de metodele Init,Run si Done,in care am definit un obiect mostenitor de tip fereastra TWindow care are printre metodele sale si metoda Paint(care faciliteaza identificarea contextului de dispo- zitiv grafic DC). Acest principiu este recomandabil pentru utilizarea tuturor controale- lor de tip "fereastra de tip descendent":butoane,casete lista,casete combi- nate,ferestre de editare etc.De exemplu,pentru a utiliza o caseta de tip ListBox in care optiunile sunt derulate sub forma de lista verticala,se va crea un obiect de tip TApplication,in care se defineste un obiect de tip TWindow,in care se construieste un control de tip ListBox.In acest fel, obiectul final rezultat va beneficia de toate metodele celor trei obiecte, la care se pot adauga si procedurile destinate pentru receptionarea si interpretarea mesajelor (alegerea uneia dintre optiuni determina executia unei anumite operatii,ca rezultat a mesajului receptionat etc...). -121- EXEMPLU: program obiect5; uses WinProcs,WinTypes,ODialogs,OWindows; type E=object(TApplication) procedure InitMainWindow;virtual; end; PE=^TE1; TE1=object(TWindow) LB1:PListBox; constructor Init(AParent:PWindowsObject;ATitle:PChar); procedure SetupWindow;virtual; end; constructor TE1.Init(AParent:PWindowsObject;ATitle:PChar); var AStat : PStatic; begin inherited init(AParent,Atitle); LB1:=New(PListBox,Init(@Self,101,20,40,150,100)); AStat:=New(PStatic,Init(@Self,102,'Caseta ListBox',20,10,150,20,0)); end; procedure TE1.SetupWindow; begin inherited SetupWindow; LB1^.AddString('Text pe randul 1'); LB1^.AddString('Text pe randul 2'); LB1^.AddString('Text pe randul 3 etc...'); end; procedure E.InitMainWindow; begin MainWindow:=New(PE,Init(nil,'Caseta tip listBox')); end; var E1:E; begin E1.Init('ListBox'); E1.Run; E1.Done; end. Observati ca spre deosebire de casetele de tip ListBox create sub forma de resurse cu ajutorul utilitarului Resource Workshop,obiectul de tip ListBox definit in ODialogs cu numele TListBox,beneficieaza de metode proprii pentru introducerea sau stergerea sirurilor de caractere in caseta.Aceste metode(AddString,DeleteString,GetString,InsertString etc.) faciliteaza foarte mult operatiile asupra datelor afisate.Pentru construirea listei am utilizat parametrul implicit Self,care garanteaza ca se va apela metoda virtuala corecta pentru instanta actuala a obiectului(self este parametrul implicit de apelare al tuturor metodelor). Pentru referirea oricarui obiect sau membru,se utilizeaza pointerii.In exemplul de mai sus,observati pointerii: PE,PStatic,PListBox si LB1^. Atunci cand obiectul predefinit contine o metoda destinata pentru operatia pe care dorim sa o efectuam,este intotdeauna de preferat sa utilizati metoda implicita,decat sa definiti una noua(economie de memorie si efort). -122- Astfel,de exemplu,metoda Run din TApplication initializeaza si mentine automat bucla de mesaje Windows.Pentru a receptiona si interpreta un mesaj nu mai este necesar sa declarati si initializati o bucla de tip GetMessage EXEMPLU: program obiect6; uses WinProcs,WinTypes,OWindows,ODialogs; type Buton = object(TApplication) procedure InitMainWindow;virtual; end; PB1 = ^B; B = object(TWindow) Cec:PCheckBox; constructor Init(AParent:PWindowsObject;ATitle;PChar); procedure ActivareButon(var Msg:TMessage); virtual id+First + 101; end; constructor B.Init(Aparent:PWindowsObject;Atitle:PChar); begin inherited Init(Aparent,ATitle); Cec:=New(PCheckBox,Init(@Self,101,'Buton de control',160,12,150,26,nil)); end; procedure B.ActivareButon(var Msg:TMessage); begin if Cec^.GetCheck = bf_Unchecked then MessageBox(HWindow,'Neselectat','Butonul este:',MB_OK) else MessageBox(HWindow,'Selectat','Butonul este:',MB_OK); end; procedure Buton.InitMainWindow; begin MainWindow:=New(PB1,Init(nil,'Selectati/deselectati butonul !')); end; var Buton1:Buton; begin Buton1.Init(nil); Buton1.Run; Buton1.Done; end. Se observa ca procedura de activare a butonului(ActivareButon) primeste mesajele Windows desi nu am declarat nici o bucla de repetitie.Aceasta proprietate este valabila pentru toate obiectele de tip TApplication care apeleaza la metoda Run. Probabil ca va intrebati ce rost are declararea procedurilor si metode- lor cu atributul "virtual".In primul rand,declararea obiectului se face apeland la definitia abstracta pentru ca obiectul sa poata fi vizualizat si inteles dintr-o singura privire de ansamblu.Multe dintre metodele si procedurile unui obiect sunt destul de lungi si daca ar fi incluse de la inceput in definitia obiectului,aceasta s-ar extinde uneori pe mai multe zeci de randuri si obiectul nu ar putea fi vizulaizat intreg.In plus,in obiectele derivate din superclasa,metoda sau procedura respectiva poate fi definita in mod diferit,in functie de necesitatile de moment,asigurand astfel o maleabilitate extrem de mare a rezultatelor obtinute. -123- In exemplul de mai sus,butonul este functional si poate fi utilizat pentru orice alta operatie dorita. Obiectul de tip TWindow,beneficiaza in plus si de metoda WMLButtonDown care detecteaza un click al butonului stang de mouse si trimite mesaje de tip wm_Timer atat timp cat butonul este apasat. EXEMPLU: program obiect7; uses WinTypes,WinProcs,OWindows; type PW1 = ^F1; F1 = object(TWindow) procedure WMLButtonDown(Var Msg: TMessage); virtual wm_First + wm_LButtonDown; end; Aplicatie = object(TApplication) procedure InitmainWindow;virtual; end; procedure F1.WMLButtonDown(var Msg: Tmessage); begin MessageBox(HWindow,'Click de mouse !','Mesaj afisat:',mb_OK); end; procedure Aplicatie.InitMainWindow; begin MainWindow:=New(PW1,Init(nil,'Apasati butonul mouse !')); end; var A:Aplicatie; begin A.Init(nil); A.Run; A.Done; end. Observati ca la fiecare clic de mouse cu butonul stang,se va afisa mesajul prestabilit prin metoda WMLButtonDown. Observati si faptul ca nu conteaza ordinea in care sunt declarate obiectele predefinite (TApplication,TWindow etc.) deoarece ierarhia lor este prestabilita si ramane aceeasi indiferent de ordinea in care sunt declarate.In cazul obiectelor declarate de d-voastra,trebuie insa sa fiti extrem de atenti la pozitia in care declarati un obiect,deoarece tipul de mostenire (daca exista) este determinat de modul in care includeti un obiect in alt obiect.In cazul programelor mari,cu mai multe obiecte,este bine sa faceti mai intai o schema grafica pe o coala de hartie,eventual cu reprezentari simbolice ale obiectelor si metodelor implementate,astfel incat in etapa de declarare si definire sa fie cat mai usor de pozitionat. In mod similar cu exercitiul de mai sus,puteti utiliza o fereastra de tip TWindow si metoda WMLButtonDown pentru a executa orice alta operatie declansata de un click de mouse (de exemplu puteti trasa linii sau chiar puteti desena cu mouse etc.). Metoda WMLButtonDown poate fi utilizata si pentru a prelua date sau informatii in momentul unui click de mouse.De exemplu,pentru a determina si afisa pozitia indicatorului mouse in cadrul ferestrei active se poate utiliza o procedura simpla care citeste mesajele Windows si salveaza coordonatele X si Y prin LParamLo si LParamHI intr-un tampon de memorie. -124- EXEMPLU: program obiect8 uses WinTypes,WinProcs,OWindows,Strings; type PW1 = ^F1; F1 = object(TWindow) DC:HDC; procedure WMLButtondown(var Msg: TMessage); virtual wm_Furst + wm_LButtonDowm; end; Aplicatie = object(TApplication) procedure InitMainWindow;virtual; end; procedure F1.WMLButtonDown(var Msg:Tmessage); var S: array[0..9] of Char; begin wvsprintf(S,'(%d,%d)',Msg.LParam); DC:=GetDC(HWindow); TextOut(DC,Msg.LParamLo,Msg.LParamHi, S, StrLen(S)); ReleaseDC(HWindow,DC); end; procedure Aplicatie.InitmainWindow; begin MainWindow:=New(PW1,Init(nil,'Deplasati si apasati butonul mouse !')); end; var A:Aplicatie; begin A.Init(nil); A.Run; A.Done; end. Exemplul de mai sus prezinta cea mai simpla modalitate de a prelua date sau de a declansa o anumita operatie,la un click de mouse.Pentru ca operatia sa fie mai discriminativa,se poate face si conditionarea inversa prin care operatia este executata doar daca se executa un clic de mouse in interiorul unui perimetru bine determinat din interiorul ferestrei. Pentru a executa o anumita operatie grafica la un clic de mouse,puteti construi un obiect similar cu cel din exemplul de mai sus,in care metoda F1.WMLButtonDown poate fi inclocuita cu una de genul: procedure F1WLMButtonDown(var Msg: TMessage); begin DC:=GetDC(HWindow); Rectangle(DC,Msg.LParamLo,Msg.LParamHi,Msg.LParamLo+20,Msg.LParamHi+20); end; care va desena un patrat cu latura de 20 pixeli la fiecare clic de mouse, la pozitia actuala a indicatorului mouse. Reluati cu atentie ultimele trei exemple si observati cat de usor se poate utiliza un obiect pentru a obtine rezultate diferite.Din acest motiv,este bine sa pastrati toate exercitiile si aplicatiile dezvoltate in cursul etapei de invatare a limbajului.In viitor,la nevoie,ve-ti putea prelua si transforma oricare dintre obiectele create,in functie de nece- sitatile de moment. -125- Un alt tip de obiect tip fereastra descendenta sunt casetele de dialog de tip ComboBox(caseta combinata).Aceste controale se utilizeaza in mod curent pentru a forma obiecte complexe,de tip TDialog,si pot fi de trei feluri:simple,cu derulare si cu lista in derulare.Casetele tip ComboBox beneficieaza de un numar foarte mare de mesaje,la care se adauga metodele proprii ale obictului(Clear,getText,Init,Load,SetText,SetupWindow,ShowList Store,Transfer etc.) permitand astfel o foarte mare flexibilitate pentru personalizarea aplicatiilor. EXEMPLU: program obiect10; uses WinProcs,WinTypes,ODialogs,OWindows; type E=object(TApplication) procedure InitMainWindow;virtual; end; PE=^TE1; TE1=object(TWindow); CB1:PComboBox; constructor Init(Aparent:PWindowsObject;ATitle:PChar); procedure SetupWindow;virtual; end; constructor TE1.Init(AParent:PWindowsObject;ATitle:PChar); var AStat : PStatic; begin inherited Init(AParent,ATitle); CB1:=New(PComboBox,Init(@Self,101,20,40,150,100,cbs_DropDownList,0)); AStat:=New(PStatic,Init(@Self,102,'Control Combobox',20,20,150,20,0)); end; procedure TE1.SetupWindow; begin inherited SetupWindow; CB1^.AddString('Text pe randul 1'); CB1^.AddString('Text pe randul 2'); CB1^.AddString('Text pe randul 3 etc...'); end; procedure E.InitmainWindow; begin MainWindow:=New(PE,Init(nil,'Caseta tip ComboBox')); end; var E1:E; begin E1.Init('ListBox'); E1.Run; E1.Done; end. Pentru a prelua datele din caseta,sau pentru a le prelucra sau sorta in mod diferit,este nevoie de o alta procedura suplimentara.Selectia si modul de combinare a mesajelor Windows utilizate depinde de experienta si preferintele fiecarui programator.Principial se prefera solutiile cele mai simple,dar unele prelucrari de date necesita elaborarea unor algoritmi speciali de prelucrare.In mod curent,casetele de tip ComboBox,la fel ca si cele de tip ListBox se utilizeaza in combinatie cu butoane de control. -126- Obiectele Windows pot fi personalizate dupa bunul plac.Una dintre cele mai mult utilizate tehnici este cea de adaugare a unor imagini grafice colorate,cu ajutorul corora obiectul poate fi distins de cele similare. Pentru a vedea culorile fundamentale,executati exemplul urmator. EXEMPLU: program obiect11; uses WinTypes,WinProcs,OWindows,Strings; const Rosu :array[0..7] of byte =(0,0,0,0,250,250,250,250); Verde:array[0..7] of byte =(0,0,250,250,0,0,250,250); Albastru:array[0..7] of byte =(0,250,0,250,0,250,0,250); type PW1 = ^F1; F1 = object(TWindow) DC:HDC; procedure WMLButtonDown(var Msg:Tmessage); virtual wmFirst + wm_LButtonDown; end; Aplicatie = object(TApplication) procedure InitmainWindow;virtual; end; procedure F1.WMLButtonDown(var Msg: Tmessage); var i,p,o:integer; begin DC:=GetDC(HWindow); for i:=0 to 7 do begin p:=CreateSolidBrush(RGB(Rosu[i],Verde[i],Albastru[i])); o:=SelectObject(DC,p); Rectangle(DC,i*25,i*25,i*25+20,i*25+20); DeleteObject(p); end; TextOut(DC,100,250,'Paleta de culori standard !',27); ReleaseDC(HWindow,DC); end; procedure Aplicatie.InitMainWindow; begin MainWindow:=New(PW1,Init(nil,'Apasati butonul mouse !')); end; var A:Aplicatie; begin A.Init(nil); A.Run; A.Done; end. In exemplul de mai sus,la un click al butonului stang de mouse se vor afisa o serie de patratele colorate in paleta standard de culori(formata din nuantele extreme ale culorilor respective).Pentru a obtine palete de culori diferite,nu trebuie decat sa modificati valorile din cele trei arii de definitie (Rosu,Verde si Albastru) cu alte valori cuprinse intre 0 si 255.Teoretic sunt posibile cateva milioane de nuante (255x255x255), dar ochiul uman nu percepe decat un numar mult mai mic de nuante.Pentru alegerea nuantei preferate puteti utiliza exemplul urmator: -127- EXEMPLU: program obiect12; uses WinProcs,WinTypes,ODialogs,OWindows,Strings; type E=object(TApplication) procedure InitMainWindow;virtual; end; PE=^TE1; TE1=object(TWindow) P1,P2,P3:PScrollBar; T1,T2,T3:PStatic; B1:PButton; constructor Init(AParent:PWindowsObject;Atitle:PChar); procedure SetupWindow;virtual; procedure Culoare(var Msg: TMessage);virtual id_First + 104; end; constructor TE1.Init(AParent:PWindowsObject;ATitle:PChar); begin inherited Init(AParent,Atitle); P1:=New(PScrollBar,Init(@Self,101,20,50,250,30,True)); P2:=New(PScrollBar,Init(@Self,102,20,150,250,30,True)); P3:=New(PScrollBar,Init(@Self,103,20,250,250,30,true)); T1:=New(PStatic,Init(@Self,201,' Rosu',100,30,100,20,0)); T2:=New(PStatic,Init(@Self,202,' Verde',100,130,100,20,0)); T3:=New(PStatic,Init(@Self,203,' Albastru',100,230,100,20,0)); B1:=New(PButton,Init(@Self,104,' OK ',370,310,50,50,True)); end; procedure TE1.SetupWindow; begin inherited SetupWindow; P1^.SetRange(0,250); P2^.SetRange(0,250); P3^.Setrange(0,250); end; procedure TE1.Culoare(var Msg: TMessage); var DC,p,s:integer; begin DC:=GetDC(HWindow); p:=CreateSolidBrush(RGB(P1^.GetPosition,P2^.GetPosition,P3^.GetPosition)); s:=SelectObject(DC,p); Rectangle(DC,300,50,500,300); TextOut(DC,20,1,'Deplasati cursoarele apoi confirmati cu butonul OK!',51); DeleteObject(p);DeleteObject(s);ReleaseDC(HWindow,DC);end; procedure E.InitMainWindow; begin MainWindow:=New(PE,Init(nil,'Apasati butonul OK !')); end; var E1:E; begin E1.Init('Test culori'); E1.Run; E1.Done; end. -128- Dupa declararea tipului de obiect,se pot declara mai multe variabile din tipul respectiv.In acest fel,obiectul respectiv va putea fi apelat cu ajutorul a doua variabile diferite.Acest gen de operatie este util atunci cand dorim sa derivam obiecte diferite din tipul respectiv de obiect,sau cand efectuam un numar mare de operatii cu obiectul respectiv si dorim sa avem o copie de siguranta a obiectului.Procedeul este utilizat si in etapa de depanare a programelor pentru a determina daca eroarea este legata de variabila respectiva sau este generata de definitia tipului de obiect(eroare de tampon /eroare de definitie). EXEMPLU: program obiect13; uses WinCRT,WinProcs,WinTypes,OWindows,ODialogs; type B=object(TApplication) procedure InitMainWindow;virtual; end; PE=^TE; TE=object(TWindow) BR1,BR2,BR3:PRadioButton; constructor Init(AParent:PWindowsObject;ATitle:PChar); end; constructor TE.Init(AParent:PWindowObject;ATitle:PChar); begin inherited Init(AParent,ATitle); BR1:=New(PRadioButton,Init(@Self,101,'Buton 1',30,10,80,20,nil)); BR2:=New(PRadioButton,Init(@Self,102,'Buton 2',30,40,80,20,nil)); BR3:=New(PRadioButton,Init(@Self,103,'Buton 3',30,70,80,20,nil)); end; procedure B.InitMainWindow; begin MainWindow:=New(PE,Init(nil,'Butoane radio')); end; var Buton:B; var Obiect:B; begin Buton.Init(nil); Buton.Run; Buton.Done; writeln('tastati ENTER !'); readln; Obiect.Init(nil); Obiect.Run; Obiect.Done; end. Observati ca am declarat un tip de obiect format din trei butoane radio incluse intr-o fereastra de tip TWindow.Am declarat doua variabile(Buton si Obiect) din tipul respectiv dupa care am apelat si executat obiectul cu fiecare dintre cele doua variabile.Acest procedeu este util in caz ca tamponul de memorie care contine obiectul a fost suprascris sau este de- fectiv.Observati ca obiectele nu au nevoie de un destructor,deoarece metoda Done din TApplication efectueaza toate operatiile de curatire necesare pentru obiectele implicite create dinamic. -129- Obiectele pot fi deplasate si redimensionate cu ajutorul functiilor din unitatea WinProcs,sau cu ajutorul unor proceduri special concepute. Cea mai simpla metoda de redimensionare este sa utilizati functia Move- Window pentru fereastra de tip TWindow care contine obiectul. EXEMPLU: program obiect14; uses WinProcs,WinTypes,OWindows,ODialogs; type F1=object(TApplication); procedure InitMainWindow;virtual; end; PF2=^F2; F2=object(TWindow) DC:HDC; procedure WMLButtonDown(var Nsg: TMessage); virtual wm_First + wm_LButtonDown; procedure WMRButtonDown(var Msg: TMessage); virtual wm_RButtonDown; end; procedure F1.InitMainWindow; begin MainWindow:=New(PF2,Init(nil,'Click alternativ de mouse !')); end; procedure F2.WMLButtonDown(var Msg: TMessage); begin DC:=GetDC(HWindow); MoveWindow(HWindow,30,30,100,100,False); Rectangle(DC,10,10,50,50); end; procedure F2.WMRButtonDown(var Msg: TMessage); begin DC:=GetDC(HWindow); MoveWindow(HWindow,30,30,700,500,Yrue); Ellipse(DC,200,200,400,400); end; var FF:F1; begin FF.Init(nil); FF.Run; FF.Done; end. Obseervati ca executand in fereastra un click de mouse cu butonul stang determina micsorarea ferestrei iar cu butonul drept determina expandarea acesteia.Efectuati aceasta operatie de mai multe ori.Este acelasi obiect (FF),dar care trece prin instante diferite.In cursul executiei unui program,un obiect oarecare poate suferi multiple trans- formari fata de starea initiala.Din acest motiv,este uneori foarte comod sa detineti o copie de siguranta a primei instante a obiectului. Este bine sa constientizati faptul ca orice operatie efectuata asupra unui obiect,se adreseaza la proprietatile obiectului din acel moment dat. O eroare frecventa este apelul la proprietati(sau valori) ale obiectului, care au fost definite,dar s-au modificat in cursul executiei. -130- Pentru ca un obiect sa fie functional,fie apelati la una dintre meto- dele obiectului,fie scrieti o bucla de repetitie pentru schimbul de me- saje Windows,dintre care alegeti mesajul discriminativ. EXEMPLU: program obiect15; uses WinProcs,WinTypes,OWindows,ODialogs; type F=object(TApplication) procedure InitMainWindow;virtual; end; PT=^TW; TW=object(TWindow) LB1:PListBox; PS1:PStatic; constructor Init(AParent:PWindowsObject;ATitle:PChar); procedure SetupWindow;virtual; procedure WMLButtonDown(var Msg: TMessage); virtual wm_First + wm_LButtonDown; end; constructor TW.Init(Aparent:PWindowsObject;Atitle:Pchar); begin inherited Init(Aparent,Atitle); LB1:=New(PListBox,Init(@Self,151,20,40,150,100)); PS1:=New(PStatic,Init(@Self,102,'Alegeti optiunea',20,10,150,20,0)); end; procedure TW.SetupWindow begin inherited SetupWindow; LB1^.AddString('Optiunea 1'); LB1^.AddString('Optiunea 2'); LB1^.AddString('Optiunea 3'); LB1^.AddString('Optiunea 4'); LB1^.AddString('Optiunea 5'); end; procedure TW.WMLButtonDown(var Msg: TMessage); var Ltext:array[0..10] of char; begin LB1^.GetSelString(Ltext,10); MessageBox(HWindow,Ltext,'optiunea aleasa este:',MB_OK); end; procedure F.InitMainWindow; begin MainWindow:=New(PT,Init(nil,'Selectati...apoi click in fereastra !')); end; var FF:F; begin FF.Init(nil); FF.Run; FF.Done; end. Observati ca la un click de mouse(detectat de procedura WMLButtonDown) metoda GetSelString(din ListBox) returneaza sirul de caractere selectat. -131- Unitatea Objects contine urmatoarele obiecte:TBufStream,TCollection, TDosStream,TEmsStream,TObject,TSortedCollection,TStrCollection si TStream. Dintre acestea,TCollection este o structura abstracta care permite uti- lizarea unor grupuri de date cu format diferit.TCollection se deosebeste de array,set si list prin faptul ca permite utilizarea de date diferite ca format si in plus contine o serie de metode proprii: EXEMPLU: program obiect16; uses WinCRT,Objects,Strings; type PDate=^Date; Date=object(TObject); Info:PChar; constructor Init(Info2:PChar); destructor Done;virtual; procedure Scrie;virtual; end; constructor Date.Init(Info2:PChar); begin Info:=StrNew(Info2); end; destructor Date.Done; begin StrDispose(Info); end; procedure Date.Scrie; begin writeln(Info); end; procedure Afiseaza(C;pCollection); procedure Apel(P:PDate);far; begin P^.Scrie; end; begin writeln('Lista datelor arhivate:'); writeln('****************************'); C^.ForEach(@Apel); end; var Lista:PCollection; begin Lista:=New(PCollection,Init(10,5)); with Lista^ do begin Insert(New(PDate,Init('Primul element din arhiva'))); Insert(New(PDate,Init('Elementul al doilea'))); Insert(New(PDate,Init('Elementul cu numarul 3'))); Insert(New(PDate,Init('Al patrulea element !'))); end; Afiseaza(Lista); Dispose(Lista,Done); end. -132- Observati ca toate operatiile cu si aspra obiectului sunt intermediate de pointeri.La prima vedere,mecanismul de lucru pare complicat,dar la o analiza atenta se observa ca nu sunt decat operatii elementare.Lista de tip TCollection prezinta o serie de avantaje esentiale:permite identifi- carea unui anumit membru al listei,permite sortarea elementelor sau chiar efectuarea de operatii de tip calcul tabelar. Pentru selectarea unui anumit membru al listei,puteti utiliza un program de genul (se continua si pe pagina urmatoare !): EXEMPLU: program obiect17; uses WinCRT,Objects,Strings; type PDate=^Date; Date=object(TObject) Telefon,Nume,Adresa:PChar; constructor Init(Telefon2,Nume2,Adresa2:PChar); destructor Done;virtual; end; constructor Date.Init(Telefon2,Nume2,Adresa2:PChar); begin Telefon:=StrNew(Telefon2); Nume:=StrNew(Nume2); Adresa:=StrNew(Adresa2); end; destructor Date.Done; begin StrDispose(Telefon); StrDispose(Nume); StrDispose(Adresa); end; procedure Date.Scrie; begin writeln(Telefon,' ',Nume,' ',Adresa); end; procedure Afiseaza(C:PCollection); procedure Apel(P:PDate);far; begin P^.Scrie; end; begin writeln(' TELEFON ','NUME ','ADRESA'); C^.ForEach(@Apel); end; procedure Cauta(C:PCollection;Textdorit:PChar); function Control(Client:PDate):Boolean;far; begin Control:=StrPos(Client^.Nume,Textdorit) <> nil; end; var Rezultat: PDate; (continuare pe pagina urmatoare) -133- (continuare ) begin Rezultat:=C^.FirstThat(@Control); if Rezultat=nil then writeln('Numarul cautat nu a fost gasit !') else begin writeln('Numarul cautat este:'); writeln; Rezultat^.Scrie; end; end; var Lista:PCollection; begin Lista:=New(PCollection,Init(10,5)); with Lista^ do begin Insert(New(PDate,Init('0264-117753','ALBU ION','Cluj-Napoca'))); Insert(New(PDate,Init('0263-77ALO9','BRAN DAN','Bistrita'))); Insert(New(PDate,Init('7422-481186','POP AUREL','Brasov'))); Insert(New(PDate,Init('021-99ORG25','STAN VASILE','Vaslui'))); end; Afiseaza(Lista); Cauta(Lista,'POP AUREL'); Dispose(Lista,Done); end. Observati ca exercitiul a fost realizat prin transformarea celui precedent dupa adaugarea unei proceduri de cautare si a unei functii de control. Pentru a cauta alta persoana,este suficient sa schimbati numele din comanda Cauta(Lista,...numele dorit).Pentru a schimba criteriul de cautare trebuie sa schimbati in functia de control criteriul cautat: EXEMPLU : Control:=StrPos(Client^.Telefon,Textdorit) <> nil va cauta in obiect in functie de numarul de telefon specificat in Cauta(Lista,...). Obiectul de tip TCollection poate fi astfel utilizat la fel ca o mica baza de date formatate.Numarul maxim de elemente ce pot fi incluse intr-un obiect de tip TCollection este dat de MaxCollectionSize si este egal cu 65520/SizeOf(Pointer),adica 65520 impartit la dimensiunea maxima a fieca- rui element in parte(Exemplu: pentru date pe 8 bytes pot fi 8190 de ele- mente in obiect).Daca doriti sa exploatati date cu format mai mare,sau in numar mai mare decat numarul maxim de elelemte admis in obiect,puteti utiliza mai mulate obiecte similare,care vor fi operate de catre o pro- cedura comuna pentru toate obiectele.Mai mult chiar,obiectele diferite pot fi arhivate in file (module diferite),facand operatia de depanare si sau actualizare mult mai usoara. TCollection beneficiaza de o serie intrega de metode proprii,pentru operatii cu si asupra membrilor(At,AtDelete,AtFree,Atinsert,Atput,Delete, DeleteAll,Error,FirstThat,ForEach,FreeAll,FreeItem,Free,GetItem,Insert, LastThat,Pack,PutItem,SetLimit,Store).Nu ezitati sa experimentati efectul fiecareia dintre ele,adaugand cate o procedura la exemplele de mai sus. Pentru incepatori,cea mai simpla cale de invatare este sa transformati sau adaptati programele precedente prin adaugarea unor functii noi. -134- EXEMPLU: program obiect18; uses WinCRT,Objects,Strings; type PDate=^Date; Date=object(Tobject) Nume:PChar; Suma:real; constructor Init(Info2:PChar;Suma:real); destructor Done;virtual; procedure Scrie;virtual; end; constructor Date.Init(Info2:PChar;Suma2:real); begin Nume:=StrNew(Info2); Suma:=Suma2; end; destructor Date.Done; begin StrDispose(Nume); end; procedure Date.Scrie; writeln(Nume,' ',Suma); Suma:=Suma*77.13; writeln('inmultit cu 77.13 rezulta:'); writeln(Nume,' ',Suma); writeln; end; procedure Afiseaza(C:PCollection); procedure Apel(P:PDate);far; begin P^.Scrie; end; begin writeln('Lista datelor arhivate:'); writeln('****************************'); C^.ForEach(@Apel); end; var Lista:PCollection; begin Lista:=New(PCollection,Init(10,5)); with Lista do begin Insert(New(Pdate,Init('Primul element din arhiva=',1077))); Insert(New(PDate,Init('Elementul al doilea= ',1.13325))); Insert(New(PDate,Init('Elementul cu nr.3= ',55000.77))); Insert(New(PDate,Init('Al patrulea element != ',99.13))); end; Afiseaza(Lista); Dispose(Lista,Done); end. Observati ca operatia *77.13 afecteaza toti membrii obiectului Lista. -135- In mod similar,un obiect de tip TCollection poate fi utilizat pentru a grupa orice fel de obiecte,desene,desene tehnice,grafice si aplicatii grafice sau combinatii de text si aplicatii GDI. EXEMPLU: program obiect19; uses WinCRT,Objects,WinTypes,WinProcs,OWindows; var o:integer; c;longint; type PDesen=^desen; Desen=object(TObject); constructor Init; procedure D1(DC:HDC);virtual; end; constructor Desen.Init; begin inherited Init; Randomize; end; procedure Desen.D1(DC:HDC); begin c:=RGB(Random(250),Random(250),Random(250)); o:=SelectObject(DC,CreateSolidBrush(c)); Rectangle(DC,Random(600),Random(400),Random(600),Random(400)); Ellipse(DC,Random(400),Random(400),Random(400),Random(400)); end; type Ap1=object(TApplication) procedure InitMainWindow;virtual; end; PG1=^TG1; TG1=object(TWindow) ListaGrafica:PCollection; destructor Done;virtual; procedure Paint(PaintDC:HDC;var Info: TPaintStruct);virtual; procedure SetupWindow;virtual; end; procedure Ap1.InitMainWindow; begin MainWindow:=New(PG1,Init(nil,'Colectie de obiecte grafice')); end; procedure TG1.SetupWindow; var I:Integer; P:PDesen; begin ListaGrafica:=New(PCollection,Init(10,5)); for I:=1 to 7 do begin P:=New(PDesen,Init); ListaGrafica^.Insert(P); end; end; (continuare pe pagina urmatoare) -136- destructor TG1.Done; begin Dispose(ListaGrafica,Done); DeleteObject(o); inherited Done; end; procedure TG1.Paint(PaintDC:HDC;var Info: TPaintStruct); procedure Deseneaza(C:PCollection);far; procedure Apel(P:PDesen);far; begin P^.D1(PaintDC); end; begin C^ForEach(@Apel); end; begin if ListaGrafica <> nil then Deseneaza(ListaGrafica); end; var Grafica:Ap1; begin Grafica.Init('nil'); Grafica.Run; Grafica.Done; end. In exemplul de mai sus am utilizat o fereastra de tip TWindow,inclusa intr-un obiect de tip TApplication,pentru a beneficia de fereastra prin- cipala MainWindow cu metodele Init,Run si Done si respectiv pentru a initializa contextul grafic (hWindow) si a beneficia de metoda Paint din Twindow.In fereastra TWindow,am inclus un obiect de tip TObject pe care l-am utilizat pentru a construi un obiect de tip TCollection(ListaGrafica) in care se arhiveaza aleator,la fiecare executie 7 dreptunghiuri si 7 elipse generate extemporaneu.Pentru a apela fiecare membru al obiectului TCollection am utilizat metoda ForEach(din TCollection) care pune in exe- cutie functia sau procedura specificata(Apel).Observati ca apelul membri- lor din fiecare procedura se face prin pointerii lor. Graficele aleatorii din exemplul de mai sus se pot obtine si fara ajutorul obiectelor,chiar mai simplu,dar introducerea unui obiect de tip TCollection permite efectuarea unui numar mare de operatii suplimantare asupra desenelor generate.Astfel,desenele pot fi salvate sau imprimate, pot fi transferate in module separate de program,pot fi modificate si redesenate secvential,pot fi sortate sau ordonate dupa o anumita regula, pot fi adaugate sau sterse independent sau in grup,etc.Toate aceste pro- prietati suplimantare sunt utilizate pentru a realiza efecte de tip desen animat,pentru a realiza jocuri grafice pe calculator,etc. Observati ca atat in constructor cat si in destructor,metodele moste- nite sunt specificate prin "inherited". La acest gen de aplicatii,o atentie maxima trebuie acordata destructo- rilor.In cazul obiectelor predefinite,cu destructor standard,programarea este extrem de facila.In cazul obiectelor grafice generate aleator,exista riscul de a supradopa memoria de operare cu date nelucrative.Eliberati memoria de orice obiect sau variabila,imediat dupa utilizare !. -137- Obiectele de tip TCollection au si doua tipuri derivate;TSortedCollec- tion si TStrCollection care mai adauga cateva metode(KeyOf,Compare,etc.) utile pentru operatiile de comparare a elementelor incluse in obiect. Un alt tip de obiecte definite in unitatea Objects sunt stream-utile. Tipul de baza este TStream si este un obiect abstract destinat pentru a intermedia operatiile de intrare/iesire (I/O) a datelor,de la o unitate de arhivare a datelor.In general,stream-urile sunt niste tampoane de me- memorie care permit structurarea,organizarea si administrarea memoriei. Cele doua tipuri derivate sunt:TDosStream care este specializat pentru operatii cu file DOS si TBufStream care adauga un tampon si constantele necesare pentru operatii in interiorul tamponului de memorie. EXEMPLU: program obiect 20; uses WinCRT,Objects,OWindows,Strings,WinProcs,WinTypes; var A,B:array[0..30] of char; type Ap1=object(TApplication) procedure InitMainWindow;virtual; procedure Executie; end; procedure Ap1.InitMainWindow begin MainWindow:=New(PWindow,Init(nil,'Text')); end; procedure Ap1.Executie; var S:TBufstream; begin S.Init('FILA1',stCreate,512); S.Init('FILA1',stOpen,100); StrPCopy(A,'Text inclus in fila FILA1 '); S.Write(A,25); writeln('Textul copiat in stream este: ',A); writeln('FILA1 are: ',S.BufSize,' bytes'); writeln('Pozitia curenta este: ',S.BufPtr); writeln('Codul handle este: ',S.Handle); S.Seek(0); writeln('Pozitia actuala este: ',S,GetPos); writeln('Statusul este: ',S.Status); S.Read(B,11); MessageBox(GetActiveWindow,B,'Text transferat:',MB_OK); S.Done; end; var T:Ap1; begin T.Init(nil); T.Executie; T.Run; T.Done; end. Observati ca fila virtuala a fost initial creata cu stCreate si doar apoi deschisa cu StOpen.Am creat fila virtuala (stream-ul) cu o dimensiune a tamponului de memorie de 512 bytes din care am deschis doar 100. -138- Pentru a verifica si depana orice operatie efectuata asupra stream-ului puteti apela in orice moment constanta Status.Orice valoare diferita de zero semnifica o eroare oarecare(vezi constantele stXXXX). Dupa o operatie de scriere,cursorul este pozitionat pe ultimul caracter inscris.Pentru a citi date din tampon este necesara deplasarea cursorului la pozitia dorita (cu metoda Seek()). Stream-urile nu sunt destinate doar pentru operatii simple de copiere,ci pot fi utilizate pentru operatii complexe de filtrare sau conversie a datelor.Un filtru alfanumeric simplist este realizat de genul: EXEMPLU: program obiect21; uses WinCRT,Objects,OWindows,Strings,WinProcs,WinTypes; var A,B,C:array[0..50] of char; type Ap1=object(TApplication) procedure InitMainWindow;virtual; procedure Executie; end; procedure Ap1.InitMainWindow; begin MainWindow:=New(PWindow,Init(nil,'Text')); end; procedure Ap1.Executie; var S:TBufStream; x:integer; begin S.Init('FILA1',stCreate,512); S.Init('FILA1',stOpen,100); StrPCopy(A,'@Text #### inc^lus #### in ** $ fila FILA1 '); S.Write(A,44); writeln('Textul analizat este: ',A); for x:=0 to 44 do begin S.Seek(x); S.Read(C,1); if IsCharAlphaNumeric(C[0])=True then StrCat(B,C); end; MessageBox(GetActiveWindow,B,'Text transferat:',MB_OK); S.Done; end; var T:Ap1; begin T.Init(nil); T.Executie; T.Run; T.Done; end. Observati ca toate caracterele care nu sunt alfanumerice (inclusiv spatiile goale) au fost excluse de la copiere.Acest gen de operatie este util pentru a extrage textul dintr-o fila executabila,sau pentru a depana o fila de tip text corupta cu comenzi sau caractere executabile,etc... -139- Un alt obiect predefinit,extrem de util,este TDlgWindow din unitatea ODialogs,care combina caracteristicile unei ferestre cu cele ale ferestre- lor de tip dialog.O astfel de fereastra are asociata o resursa de tip dialog(BitMap,Character String,DialogBox,Icon,Cursor,Menus etc.),care descrie si determina aspectul si pozitia obiectului realizat.Cel mai comod este ca resursa sa fie creata cu utilitarul Resource Workshop si sa fie arhivata in directorul curent,intr-o fila de tip .RES. EXEMPLU: program obiect22; uses WinCRT,ODialogs,WinTypes,WinProcs; var i:integer; {$R iconita} type PF=^TF; TF=object(TDlgWindow) constructor Init; end; constructor TF.Init; begin writeln('Fereastra cu o resursa tip ICON'); TDlgWindow.Init(nil,'text oarecare'); TF.Create; i:=LoadIcon(hInstance,'ICON_1'); DrawIcon(GetDC(GetActiveWindow),50,50,i); end; var MM:TF; begin MM.Init; MM.Done; end. Pentru exercitiul de mai sus am utilizat iconita pe care am realizat-o in exercitiul pentru functia LoadIcon() (vezi WinProcs).Puteti utiliza orice resursa cu conditia sa o incarcati cu ajutorul comenzii de precom- pilare {$R ...} si apoi sa o apelati cu LoadResource sau cu functia spe- cifica resursei respective. Observati ca obiectul declarat nu are un destructor special,dar am apelat metoda Done,care este mostenita de la ancestorul sau TWindow. Pentru a studia arborele genealogic al obiectelor predefinite puteti apela meniul Search,din care selectati Optiunea Objects (vezi meniul principal al programului). Fereastra de tip TDlgWindow beneficiaza in plus,fata de TWindow si de metodele Cancel si OK,care raspund la mesajele generate de un click de mouse si pot fi apelate pentru a implementa diverse functii. Pentru receptionarea si prelucrarea mesajelor de tip Windows,obiectul preferat este insa TDialog.TDialog este definit tot in unitatea ODialogs si a fost special destinat pentru casetele de dialog.Casetele de dialog, pot fi de doua tipuri(modal sau modeless).Casetele de dialog de tip modal nu permit revenirea la o fereastra situata in afara controlului curent, decat dupa parasirea casetei de dialog,in timp ce casetele de dialog de tip modeless,permit parasirea si revenirea repetata in si din caseta de dialog curenta.In plus,obiectele de tip TDialog permit schimbul de mesaje dintre doua obiecte diferite(butoane,casete listbox,casete combobox etc.). -140- EXEMPLU: program obiect23; {$R DIALOG.RES} uses WinTypes,WinProcs,OWindows,ODialogs; type PTestDialog = ^TTestDialog; TtestDialog = object(TDialog) procedure IDBN1(var Msg: TMessage);virtual id_First + 152; procedure IDLB1(var Msg: TMessage);virtual id_First + 151; end; PTestWindow = ^TTestWindow; TTestWindow = object(TWindow) constructor Init(AParent: PWindowsObject;ATitle:PChar); procedure CMDialTest(var Msg: TMessage);virtual cm_First + 101; end; TDlgApplication = object(TApplication) procedure InitMainWindow;virtual;end; procedure TTestDialog.IDBN1(var Msg: TMessage); var TextItem:Pchar; begin TextItem :='Optiunea 1'; SendDlgItemMsg(151, lb_AddString, 0, Longint(TextItem)); TextItem :='Optiunea 2'; SendDlgItemMsg(151, lb_AddString, 0, Longint(TextItem)); end; procedure TTestDialog.IDLB1(var Msg:TMessage); var Idx: Integer; SelectedText: array[0..10] of Char; begin if Msg.lParamHi = lbn_SelChange then begin Idx :=SendDlgItemMsg(151,lb_GetCurSel, 0, Longint(0)); SendDlgItemMsg(151,lb_GetText, Idx, Longint(@SelectedText)); MessageBox(HWindow,SelectedText,'Optiunea selectata:',MB_OK); end;end; constructor TTestWindow.Init(AParent: PWindowsObject; ATitle: PChar); begin inherited Init(AParent,ATitle); Attr.Menu :=LoadMenu(Hinstance, MakeIntResource(100)); end; procedure TTestWindow.CMDialTest(var Msg: Tmessage); begin Application^.ExecDialog(New(PTestDialog,Init(@Self,'DIAL'))); end; procedure TDlgApplication.InitMainWindow; begin MainWindow:= New(PTestWindow, Init(nil,'DIALOG')); end; var MyApp:TDlgApplication; begin MyApp.Init('Dialtest'); MyApp.Run; MyApp.Done; end. -141- Exercitiul este adaptat dupa programul dialtest.pas care insoteste programul (C:bp\examples\docdemos\owl\dialtest.pas).Am pastrat aceleasi notatii,pentru a putea fi urmarit comparativ.Am simplificat putin pro- gramul pentru a putea fi inclus pe o singura pagina si am modificat putin resursa cu ajutorul utilitarului Resource Worckshop.Daca nu detineti o copie a programului,puteti crea o resursa similara cu specificatiile: Pentru meniu: MENUITEM "&TestDialog" __EndMenu__ Pentru caseta de dialog: DIAL1 DIALOG 30, 49, 188, 100 STYLE WS_POPUP | WS_DLGFRAME BEGIN PUSHBUTTON "OPTIUNI", 152, 111, 13, 68, 12 PUSHBUTTON "Cancel", 2, 112, 66, 68, 12 CONTROL "LISTBOX",151,"LISTBOX",LBS_STANDARD|WS_CHILD|WS_VISIBLE,8,8,83,73 END Verificati toate programele din directorul EXAMPLES si incercati sa le modificati pe cele care va intereseaza,dupa modelul exercitiilor din acest manual.Nu este nici o frauda,daca utilizati fragmente de program scrise de altii (cu exceptia situatiilor in care acest fapt este specificat expres in documentatia care insoteste programul respectiv).Puteti utiliza orice sursa de cod intitulata FreeWare sau Tutorial. In mod similar,este bine sa reutilizati sau sa transformati exercitiile pe care le-ati dezvoltat anterior,sau sa utilizati module din alte pro- grame. Intregul concept de programare structurata si mai ales cel de progra- mare orientata spre obiect are ca ultim scop,tocmai aceasta versatilitate si usurinta de a genera aplicatii noi,pe baza unui cod preexistent.Acest sistem de lucru,va simplifica foarte mult viata,dar aduce dupa sine si un grad crescut de responsabilitate.Pentru ca aplicatiile si programele generate de d-voastra sa poata fi utilizate sau transformate de altii, trabuie sa scrieti coduri cat mai simple,clare,corecte,insotite de expli- catii sintetice si sa gestionati memoria de asa maniera incat sa nu ramana in urma obiectelor nici un byte neeliberat dupa apelul destructorului. In etapa de invatare,este chiar indicat sa utilizati un schelet de cod din alt program sau exercitiu,pana cand va familiarizati cu toate concep- tele si mijloacele de organizare a datelor. In exercitiul precedent,observati ca obiectul de tip TDialog contine doua proceduri,una pentru butonul Obiecte si cealalata pentru caseta de dialog de tip listbox. Prima procedura (IDNBN1),in mementul in care receptioneaza mesajul Windows de activare a butonului,transfera obiectului ListBox (identificat prin codul 151) datele continute in procedura. Cea de a doua procedura (IDLB1),retransmite un mesaj generat de selectia uneia dintre optiuni si respectiv afiseaza o caseta de tip MesageBox in care afiseaza optiunea selectata. Exemplul prezinta un model simplist de comunicatie intre doua obiecte (butonul transfera date care ListBox) si o bucla simpla de actualizare a datelor din obiect (caseta listbox trimite un mesaj adresat catre sine insusi,dupa selectarea unei optiuni,prin care reconfirma datele. -142- Pentru ca doua obiecte sa poata face schimb de date,fara sa fie nece- sara transmiterea de mesaje,sau de functii call-back pentru receptionarea acestor mesaje,trebuie ca cele doua obiecte sa utilizeze variabile cu acelasi domeniu de vizibilitate.Cel mai simplu este sa includeti obiectele in aceeasi interfata grafica (fereastra TWindow,obiect TObject etc.): EXEMPLU: program obiect24; uses WinTypes,WinProcs,OWindows,ODialogs,WinCRT; type PTW = ^TW; TW = object(TWindow) CB1,CB2:PComboBox; BT1:PButton; constructor Init(AParent: PWindowsObject; ATitle: PChar); procedure Buton(var Msg: TMessage);virtual id_First + 101; procedure SetupWindow;virtual; end; TDlgApp = object(TApplication) procedure InitMainWindow;virtual; end; constructor TW.Init(AParent: PWindowsObject; ATitle: PChar); begin inherited Init(AParent,ATitle); CB1:=New(PComboBox,Init(@Self,301,20,40,100,150,cbs_Simple,0)); CB2:=New(PComboBox,Init(@Self,302,200,40,100,150,cbs_Simple,0)); BT1:=New(PButton,Init(@Self,101,'Transfer',30,200,90,20,True)); end; procedure TW.Button(var Msg: TMessage); var text:Pchar; begin text:=' '; CB1^.GetSelString(text,20); CB2^.AddString(text); end; procedure TW.SetupWindow; begin inherited SetupWindow; CB1^.AddString('Optiunea 1'); CB1^.AddString('Optiunea 2'); CB1^.AddString('Optiunea 3'); CB1^.AddString('Optiunea 4'); end; procedure TDlgApp.InitMainWindow; begin MainWindow:=New(PTW,Init(nil,'Selectati si transferati !')); end; var App: TDlgApp; begin App.Init('Transfer'); App.Run; App.Done; end. -143- Observati ca datele transferate din o caseta de dialog in cealalta sunt si sortate automat.Pentru a introduce date de la tastatura,este recoman- dabil sa apelati la un obiect de tip TEdit.Programul precedent poate fi modificat dupa cum urmeaza: EXEMPLU: program obiect25; uses WinTypes,WinProcs,OWindows,ODialogs,WinCRT; type PTW = ^TW; TW = object(TWindow) ED1:PEdit; CB1:PComboBox; BT1,BT2:PButton; PS1:PStatic; constructor Init(AParent: PWindowsObject; ATitle: PChar); procedure Buton(var Msg: TMessage);virtual id_First + 101; procedure Sterge(var Msg: Tmassage);virtual id_First + 102; end; TDlgApp = object(TApplication) procedure InitMainWindow;virtual; end; constructor TW.Init(AParent: PWindowsObject; ATitle: PChar); begin inherited Init(AParent,ATitle); PS1:=New(PStatic,init(@Self,201,'Introduceti date:',30,50,150,20,0)); ED1:=New(PEdit,Init(@Self,301,'',30,90,140,30,30,False)); CB1:=New(PComboBox,Init(@Self,302,200,40,100,150,cbs_Simple,0)); BT1:=New(PButton,Init(@Self,101,'Salveaza',30,200,90,20,True)); BT2:=New(PButton,Init(@Self,102,'Sterge',30,160,90,20,True)); end; procedure TW.Buton(var Msg: TMessage); var text:PChar; begin text:=' '; ED1^.GetLine(text,30,0); CB1^.AddString(text); end; procedure TW.Sterge(var Msg:TMessage); begin ED1^.DeleteLine(0); end; procedure TDlgApp.InitmainWindow; begin MainWindow:=New(PTW,Init(nil,'Selectati si arhivati !')); end; var App:TDlgApp; begin App.Init('Arhivare'); App.Run; App.Done; end. Pentru a adauga o noua functie,se mai adauga un buton si o procedura: -144- EXEMPLU: program obiect26; uses WinTypes,WinProcs,OWindows,ODialogs,WinCRT; type PTW = ^TW; TW = object(TWindow) ED1:PEdit; CB1:PComboBox; BT1,BT2,BT3:PButton; PS1:PStatic; constructor Init(AParent: PWindowsObject; ATitle: PChar); procedure Buton(var Msg: TMessage);virtual id_First + 101; procedure Sterge(var Msg: TMessage);virtual id_First + 102; procedure Undo(var Msg: TMessage);virtual id_First + 103; end; TDlgApp = object(TApplication) procedure InitMainWindow;virtual;end; constructor TW.Init(AParent: PWindowsObject; ATitle: PChar); begin inherited Init(AParent,ATitle); PS1:New(PStatic,Init(@Self,201,'Introduceti date;',30,50,150,20,0)); ED1:New(PEdit,Init(@Self,301,'',30,90,140,50,30,True)); CB1:=New(PComboBox,Init(@Self,302,200,40,100,150,cbs_Simple,0)); BT1:=New(PButton,Init(@Self,101,'Transfera',30,160,90,20,True)); BT2:=New(PButton,Init(@Self,102,'Sterge',30,240,90,20,True)); BT3:=New(PButton,Init(@Self,103,'Undo',30,200,90,20,True)); end; procedure TW.Button(var Msg: TMessage); var text:PChar; begin text:=' '; ED1^.GetLine(text,30,0); CB1^.AddString(text); end; procedure TW.Sterge(var Msg: TMessage); begin ED1^.DeleteLine(0); end; procedure TW.Undo(var Msg: TMessage); begin ED1^.Undo; end; procedure TDlgApp.InitMainWindow; begin MainWindow := New(PTW,Init(nil,'Selectati si transferati !')); end; var App: TDlgApp; begin App.Init('Transfer'); App.Run; App.Done; end. Pentru a arhiva datele permanent,se poate utiliza un fisier de tip TEXT. -145- EXEMPLU: program obiect27; uses WinTypes,WinProcs,OWindows,ODialogs,WinCRT; type PTW = ^TW; TW = object(TWindow) ED1:PEdit;BT1,BT2:PButton;PS1:PStatic;F1:TEXT; constructor Init(AParent: PWindowsObject; ATitle: PChar); procedure Scrie(var Msg: TMessage);virtual id_First + 101; procedure Afiseaza(var Msg: TMessage);virtual id_First + 102; end; TDlgApp = object(TApplication) procedure InitMainWindow;virtual;end; constructor TW.Init(Aparent: PWindowsObject; ATitle: PChar); begin inherited Init(AParent,ATitle); PS1:=New(PStatic,Init(@Self,201,'Introduceti date:',30,50,150,20,0)); ED1:=New(PEdit,Init(@Self,301,'',30,90,340,30,80,False)); BT1:=New(PButton,Init(@Self,101,'Salveaza',30,160,90,20,True)); BT2:=New(PButton,Init(@Self,102,'Afiseaza',30,200,90,20,True)); Assign(F1('Fisier,TXT');ReWrite(F1); end; procedure TW.Scrie(var Msg: TMessage); var text: PChar; begin text:=' '; ED1^.GetLine(text,80,0); Append(F1); writeln(F1,text); Close(F1); ED1^.DeleteLine(0); end; procedure TW.Afiseaza(var Msg: Tmessage); var s:string; begin Reset(f1); while not EOF(F1) do begin readln(F1,s); writeln(s); end; end; procedure TDlgApp.InitMainWindow; begin MainWindow:=New(PTW,Init(nil,'Editati si arhivati 1)); end; var App: TDlgApp; begin App.Init('Arhivare'); App.Run; App.Done; end. Dupa prima executie,stregeti ReWrite(F1) din constructor(pt.acumulare). -146- Un alt obiect extrem de util,este fereastra de tip multidocument (TMDI) care este definit in unitatea OWindows.Acest tip de fereastra permite deschiderea simultana a unui numar nelimitat de ferestre de tip document, si implicit,operatii simultane cu mai multe obiecte.Permite manipularea simultana a ferestrelor descendente.O fereastra multidocument detine si un obiect de tip TMDIClient pe care il arhiveaza in variabila ClientWnd. Cea mai simpla modalitate de apelare este utilizarea unui pointer de tip PMDIWindow la crearea ferestrei principale(MainWindow). EXEMPLU: program obiect29; uses WinTypes,WinProcs,OWindows,ODialogs; type TDlgAPP = object(TApplication) procedure InitMainWindow;virtual; end; procedure TDlgApp.InitMainWindow; var PW1,PW2:PWindow; begin MainWindow := New(PMDIWindow,Init('Fereastra multidocument',0)); PW1:=New(PWindow,Init(MainWindow,'Fereastra descendenta 1')); PW2:=New(PWindow,Init(mainWindow,'Fereastra descsndenta 2')); end; var App: TDlgApp; begin App.Init('Multidocument'); App.Run; App.Done; end. Pentru a vizualiza comenzile de manipulare a ferstrelor descendente, puteti utiliza un meniu care apeleaza direct codul intern al sistemului. EXEMPLU: program obiect28; {$R MENIU.RES} uses WinTypes,WinProcs,OWindows; type TDlgApp = object(TApplication); procedure InitMainWindow;virtual; end; procedure TDlgApp.InitMainWindow; begin MainWindow:=New(PMDIWindow,Init('Fereastra multidocument', LoadMenu(HInstance,'MDIMenu'))); end; var App: TDlgApp; begin App.Init(nil); App.Run; App.Done; end. Deschideti mai multe ferestre descendente de tip MDI Child prin selec- tarea optiunii Creaza din meniul Optiuni,dupa care alegeti optiunea Aliniaza pentru a reordona ferestrele,sau respectiv Cascada pentru a reveni la forma suprapusa de afisaj. -147- Resursa intitulata MENIU.RES a fost creata cu utilitarul Resource Work- shop si are urmatoarea configuratie: MDIMENU MENU BEGIN POPUP "Optiuni" BEGIN MENUITEM "Creaza",24339 MENUITEM "Cascada",24337 MENUITEM "Aliniaza",24336 MENUITEM "Aranjeaza",24335 MENUITEM "Inchide",24338 END END Meniul a fost format prin modificarea resursei MDIAPP.RES din exemplul MDIAPP.pas (C:\bp\examples\win\owl\mdiapp.pas) prin schimbarea denumirilor pentru optiuni.Puteti redenumi optiunile,sau puteti schimba ordinea lor, dar trebuie sa pastrati codul numeric atribuit fiecarei optiuni,deoarece fac parte dintre codurile interne ale sistemului.Daca utilizati alte coduri numerice,selectarea optiunii nu va avea nici un efect.Atentie sa nu redefiniti codurile respective prin atribuirea lor catre alte obiecte. In general,este bine sa utilizati valori mai mici de 16000 atunci cand definiti o optiune a unui meniu (MENUITEM),pentru a nu suprascrie codurile interne utilizate de sistem. Fereastra de tip multidocument (TMDIWindow) beneficiaza de un numar destul de mare de metode,destinate exclusiv pentru manipularea ferestrelor descendente(CascadeChildren,CreateChild,InitChild etc.).Cele care sunt precedate de prefixul CM (CMArrangeIcons,CMCascadeChildren etc.) asteapta un mesaj de comanda Windows generat de o anumita actiune (CM este prescur- tarea de la Command Message) si arhivat intr-o variabila de tip TMessage. In mod clasic,ferestrele de tip multidocument se utilizeaza pentru a redacta sau a citi comparativ doua sau mai multe fisiere de tip text, pentru a compara doua programe etc.Un exemplu clasic este utilitarul WindowsCommander,care deschide doua ferestre de tip multidocument pentru a analiza continutul unitatii de memorie. Fereastra de tip TMDIWindow este descendenta din TWindow si mosteneste toate atributele si metodele acesteia.Se poate utiliza pentru a realiza interfete complexe cu utilizatorul,formate din butoane,caste de dialog si sau ferestre de tip descendent. Pentru implementarea operatiilor efectuate asupra ferstrelor descen- dente,este comod de utilizat metoda SetupWindow,care redeseneaza fereastra impreuna cu noile atribute. Atunci cand utilizati un numar mare de obiecte,dimensiunea acestora trebuie corelata cu pozitia lor,astfel incat sa fie cat mai usor de uti- lizat,sau trebuie scrisa o rutina care sa le ordoneze in asa fel incat sa fie vizibile toate obiectele simultan. Ferestrele de tip TMDIWindow pot fi utilizate la fel ca oricare alt tip de ferestre,pot fi deplasate sau actualizate,pot fi redesenate,pot fi incluse una in alta etc. Pentru a beneficia si de metodele proprii,specifice pentru TMDIWindow sau pentru TMDIControl,trebuie declarat un obiect din tipul respectiv, in care se apeleaza metoda dorita in cadrul procedurii SetupWindow. -148- EXEMPLU: program obiect30; uses WinTypes,WinProcs,OWindows; type TDlgApp = object(TApplication) procedure InitMainWindow;virtual; end; PCC=^CC; CC=object(TMDIWindow) procedure SetupWindow;virtual; end; procedure TDlgApp.InitMainWindow; var PW1,PW2,PW3:PWindow; MainWindow :=New(PCC,Init('Fereastra multidocument',0)); PW1:=New(PWindow,Init(MainWindow,'Fereastra 1')); PW2:=New(PWindow,Init(MainWindow,'Fereastra 2')); PW3:=New(PWindow,Init(MainWindow,'Fereastra 3')); end; procedure CC.SetupWindow; begin inherited SetupWindow; begin inherited SetupWindow; TileChildren; CreateChild; end; var App: TdlgApp; begin App.Init(nil); App.Run; App.Done; end. In fereastra TMDIWindow,toate obiectele au aspect de fereastra TWindow: EXEMPLU: program obiect31; uses WinTypes,WinProcs,OWindows,ODialogs; Type TDlgApp = object(TApplication) procedure InitMainWindow;virtual; end; procedure TDlgApp.InitMainWindow; var PB1:PButton;PL1:PListBox; begin MainWindow:=New(PMDIWindow,Init('Fereastra de tip multidocument',0)); PB1:=New(PButton,Init(MainWindow,101,'Buton 1',50,50,50,50,True)); PL1:=New(PListBox,Init(MainWindow,201,50,150,200,100)); end; var App:TDlgApp; begin App.Init(nil); App.Run; App.Done; end. Atat butonul cat si caseta Listbox,au meniul complet al unei ferestre. -149- Un alt obiect extrem de util este TStream,declarat in unitatea Objects. TStream este un obiect abstract,destinat pentru operatii de intrare/iesire intre unitatile de memorie.Un stream,este un flux de date,structurat sub forma unei file virtuale.TStream este un obiect abstract polimorfic,adica accepta formaturi diferite ale datelor si necesita redefinirea metodelor sale la nivelul descendentilor sai.Principalii descendenti (care mostenesc atributele si metodele sale) sunt TDosStream si TBufStream care opereaza cu file de tip Dos si realizeaza operatii de tip I/O pentru unitatea de disc (memoria inscriptibila) si respectiv TEmsStream,care realizeaza ope- ratii de tip IO cu memoria EMS (localizata intre C000:0000 si EFFF:FFFF). Obiectul TEmsStream este mai greu de initializat,iar paginile de memorie EMS sunt destinate pentru rutinele ROM BIOS ale principalelor adaptoare asociate unitatii de baza.Nu se recomanda utilizarea lor de catre incepa- tori deoarece exista riscul de a suprascrie driverele destinate placilor adaptoare. O serie intreaga de obiecte,contin metode care utilizeaza un stream de tip TStream pentru transferul datelor dintr-o zona de memorie,in alta zona de memorie (Exemple: Store si Load,PutChildren si GetChildren etc.) EXEMPLU: program obiect32; uses Objects,WinCRT,OWindows; var X:TStream; type PT=^T; T=object(TWindow) constructor Init; procedure PutChildren(var S:TStream);virtual; end; constructor T.Init; begin inherited Init(nil,'Text'); end; Procedure T.PutChildren(var S:TStream); begin S.Init; writeln('Text pentru controlul executiei !'); end; var PR:PT; R:T; procedure Executie; begin PR:=New(PT,Init); end; begin Executie; PR^.PutChildren(X); PR^.Done; end. Exemplul ilustreaza doar modul de apelare al unei astfel de metode.Pentru ca metoda PutChildren sa poata fi operationala este necesar ca tipul de obiect sa fie declarat cu RegisterType,inainte de a fi transferat(vezi exemplele urmatoare). -150- Textul inclus in metoda PutChildren are doar rostul de a verifica daca metoda a fost apelata si executata.Acest tip de control este recomandabil pentru depanarea oricarui obiect atunci cand doriti sa stiti daca o pro- cedura sau o metoda a fost sau nu a fost executata corect.Atentie insa, atunci cand o metoda (directa sau mostenita) a fost redefinita de catre utilizator,metoda implicta a obiectului nu se mai executa ci este inlo- cuita prin cea redefinita.In acest mod,se pot redefini toate metodele unui obiect de tip TStream,sau doar o parte dintre ele. EXEMPLU: program obiect33; uses Objects,WinCRT,Strings,WinTypes,WinProcs; var a1:integer; B,R,C:array[0..80] of char; type SS=object(TStream) constructor Init(MinSize,MaxSize:longint); procedure Read(var Buf;Count:word);virtual; procedure Write(var Buf;Count:word);virtual; end; constructor SS.Init(MinSize,MaxSize:longint); var Size,Position:longint; begin Size:=MaxSize; Position:=MinSize; end; procedure SS.Read(var Buf;Count:word); begin for a1:=0 to a1+Count do C[a1]:=R[a1]; end; procedure SS.Write(var Buf;Count:word); begin for a1:=0 to a1+Count do R[a1]:=B[a1]; end; var MR:SS; procedure M; begin MR.Init(5,250); writeln('Status-ul este: ',MR.Status); StrCopy(B,'Textul original din tampon'); MR.Write(B,$50); MR.Read(C,$50); writeln('Textul transferat este: ',C); Dispose(@MR); end; begin M; end. In exemplul de mai sus,am utilizat un obiect de tip TStream in care am redefinit metodele Read si Write,astfel incat sa transfere date de tip Char dintr-un tampon in altul,utilizand un tampon intermediar. -151- In exercitiul de mai sus,se transfera caracter cu caracter,din tamponul sursa in cel intermediar si respectiv din cel intermediar in cel de des- tinatie.In mod similar se pot realiza diverse filtre prin care datele sunt transferate doar daca respecta un anumit sir de conditii.Acest gen de operatii este util pentru a depana un program sau pentru a elimina caracterele parazitare inserate accidental in cursul executiei unor pro- grame,etc. Daca se utilizeaza obiecte descendente,metodele acestora se suprascriu peste cele ale obiectului TStream(le actualizeaza).Exemplu,pentru obiecte- le de tip TEmsStream,metoda de initializare Init are doua argumente(Min- Size si MaxSize) in loc de unul singur(MaxSize) sau chiar nici unul. Pentru ca un obiect de tip ObjectWindows sa poata fi transferat cu ajutorul unui stream de tip Tstream,este necesar sa fie inregistrat cu ajutorul procedurii RegisterType,care arhiveaza valorile obiectului intr-o structura de tip TStreamRec.Obiectele standard sunt preinregistrate cu valori ale ObjType cuprinse intre 0 si 99.Pentru obiectele inregistrate de catre utilizator se vor utiliza valori mai mari decat 100,pentru a nu suprascrie(sterge) obiectele standard. EXEMPLU: program obiect34; uses WinCRT,Objects,OWindows,Strings; var D:TDosStream; type PT=^T; T=object(TWindowsObject) A:array[0..80] of char; constructor init; procedure Store(var S:TStream);virtual; end; constructor T.Init; begin inherited Init(nil); end; procedure T.Store begin StrPCopy(A,'Textul inclus in streamu-ul S'); S.Write(A,Sizeof(A)); end; const RT:TStreamRec=(ObjType:150;VmtLink:Ofs(TypeOf(T)^); Load:nil;Store:@T.Store); var PST:PT; begin PST:=New(PT,Init); RegisterType(RT); D.Init('FilaDos.Arh',StCreate); D.Init('FilaDos.Arh',StOpen); D.Put(PST); writeln('Verifica fila FilaDos.arh !'); Dispose(PST,Done); end. Exercitiul utilizeaza un obiect TStream (S) si unul de tip TDosStream (D) pentru a arhiva un obiect de tip TWindowsObject in fila FilaDos.arh. -152- Daca deschideti fila creata cu un utilitar Dos puteti observa ca pe langa textul din tamponul A,contine si o serie de caractere auxiliare, cele generate de transferarea intregului obiect de tip TWindowsObject. Pentru eliberarea memoriei am utilizat destructorul obiectului de tip TWindowsObject apelat prin Dispose.Remarcati si faptul ca obiectul de tip TDosStream a fost initializat de doua ori: o data pentru a crea fila si apoi pentru a deschide fila.Daca fila exista pe disc,prima operatie nu mai este necesara(daca se re-creaza ...datele initiale se sterg !). Pentru a prelua obiectul de tip TWindowsObject din fila in care a fost arhivat,se poate utiliza un program de genul: EXEMPLU: program obiect35; uses WinCRT,Objects,OWindows,Strings; var GStream:TDosStream;X:TStream; A:array[0..80] of Char; type PT=^T; T=object(TWindow) constructor Init; procedure Load(var S:TStream);virtual; end; constructor T.Init; begin inherited Init(nil'fereastra 1'); end; procedure T.Load(var S:TStream); begin GStream.Init('FilaDos.Arh',StOpen); GStream.Seek(2); GStream.Read(A,sizeof(A)); writeln('caractere citite= ',GStream.GetPos); end; var AT1:T;PAT1:PT; const RT: TStreamRec=(ObjType:150;VmtLink:Ofs(TypeOf(T)^); Load:nil;Store:nil); procedure StreamRegistration; begin RegisterType(RT); end; procedure M; begin PAT1:new(PT,Init); StreamRegistration; Pat1^.Load(X); end; begin M; writeln(A); Dispose(Pat1,Done); end. Observati ca am declarat/inregistrat un obiect de tip TWindow(descendent din TWindowsObject) pentru a prelua obiectul arhivat in FilaDos.Arh. -153- Pentru a utiliza alt tip de ferestre,decat cele preinregistrate,este necesara initializarea unei structuri de tip TWndClass si apoi inregis- trarea clasei respective cu ajutorul functiei RegisterClass. EXEMPLU: program obiect 36; uses WinCRT,WinTypes,WinProcs; var m,h,w:integer; const clasa1:TWndClass=(style:CS_CLASSIC OR CS_VREDRAW;lpfnWndProc:nil; cbClsExtra:0;cbWndExtra:0;hInstance:101; hIcon:0;hCursor:0;hbrBackground:1; lpszmenuName:nil;lpszClassName:'clasa1'); var clasa2:TWndClass; begin clasa2:=clasa1; InitWinCRT; RegisterClass(clasa2); h:=hInstance; w:=GetActiveWindow; m:=CreateWindow('clasa1 ','Titlul',WS_CHILD,100,100,400,200,w,0,h,nil); ShowWindow(m,4); UpdateWindow(m); Rectangle(GetDC(m),200,200,700,500); TextOut(GetDC(m),250,250,Fereastra clasa1(nou inregistrata !)',36); end. Dupa inregistrarea clasei,noul tip de fereastra poate fi utilizat ori de cate ori,cu ajutorul functiei CreateWindow sau CreateWindowEx.Este util sa creati clase noi,atunci cand doriti sa includeti un meniu perso- nalizat,un icon,un cursor,sau o functie speciala de procesare a mesajelor. Numele atribuit pentru noua clasa trebuie sa fie unic (nu se pot inregistra mai multe clase cu acelasi nume). Dupa inregistrarea clasei,se pot crea ferestre din tipul respectiv, inclusiv in interiorul obiectelor definite de catre utilizator. In mod similar,se poate utiliza functia RegisterWindowMessage pentru a inregistra un mesaj personalizat pe care doriti sa il utilizati pentru functiile SendMessage sau PostMessage. O alta unitate care contine obiecte simple si utile este VALIDATE. Unitatea Validate contine constantele vo.xxx...si vs.xxxx...procedura RegisterValidate,tipurile de date TPicResult si TVTransfer si urmatoarele obiecte: TFilterValidator,TRangeValidator,TLookupValidator,TValidator, TPXPPictureValidator si TStringLookupValidator. Dupa cum le spune si numele,obiectele din aceasta unitate se folosesc pentru a valida un anumit tip de date,prin comparatie cu un set fix de date,considerate acceptabile.Obiectele returneaza o valoare booleana de tip TRUE sau FALSE,prin care valideaza sau invalideaza datele analizate. De cele mai multe ori se utilizeaza impreuna cu alte obiecte(Listbox, ComboBpx etc.) si au rolul de a valida(verifica) datele introduse de catre utilizator.In caz ca datele introduse nu respecta sablonul dorit,obiectul de validare returneaza FALSE.Valoarea returnata se poate utiliza pentru a afisa un mesaj de eroare,pentru a anula datele introduse,pentru a repeta operatia de introducere a datelor etc. -154- Pentru a verifica un set de caractere,cel mai simplu obiect este TFilterValidator,care compara setul de date cu un set de date considerate acceptabile arhivate in ValidChars.Obiectul contine doua metode care permit validarea datelor (IsValid si IsValidInput),un constructor,doua metode pentru salvarea obiectului in stream sau respectiv preluarea unui obiect din stream (Store si Load) si o metoda care permite returnarea unui mesaj de eroare (Error). EXEMPLU: program obiect37; uses WinCRT,Validate; var sir:string; type PV=^V; V=object(TFilterValidator) constructor Init; function IsValidInput(var S:string;SuppressFill:Boolean):Boolean;virtual; end; constructor V.Init; begin ValidChars:=['a'..'z','A'..'Z',' ']; end; function V.IsValidInput(var S:string;SuppressFill:Boolean):Boolean; begin if IsValid(sir)= TRUE then writeln('Sirul contine caractere acceptate !') else writeln('Sirul contine si caractere inacceptabile !'); end; var PCon:PV; begin InitWinCRT; writeln('Introduceti un sir de caractere: '); readln(sir); PCon:=New(PV,Init); Pcon^.IsValidInput(sir,TRUE); Dispose(Pcon); end. In exercitiu au utilizat metoda clasica:-am declarat tipul de obiect, am definit obiectul,apoi am declarat o variabila din tipul respectiv si un pointer din tipul respectiv de obiect,apoi cu ajutorul functiei New, am construit un nou pointer din tipul respectiv (care apeleaza construc- torul) si apoi am apelat metoda IsValidInput care valideaza sau invali- deaza sirul.Setul de caractere utilizat pentru validare a fost declarat in constructor(ValidChars:=...).Acest gen de implementare este laborios, dar permite personalizarea obiectului dupa dorinta programatorului. Setul de caractere utilizat pentru validare(sau invalidare) poate sa contina orice fel de caractere ASCII,dar,in mod curent,se utilizeaza pentru a realiza un filtru alfa numeric (pentru a elimina caracterela parazitare dintr-un text).Se poate utiliza insa si pentru a valida o parola,pentru a filtra un anumit tip de format al datelor(gen:'###') etc. In mod curent,se utilizeaza impreuna cu casetele de tip ListBox sau ComboBox,pentru a elimina din procesul de editare caracterele eronate. -155- Un alt obiect din unitatea Validate este TRangeValidate care este destinat pentru a verifica daca un set de date este cuprins intre doua valori numerice de tip integer(daca apartine intrevalului prestabilit). Obiectul contine valorile Min si Max(constante) pentru stabilirea inter- valului de valori acceptabile si un set de metode (Init,Load,Error,IsValid Store si Transfer) pentru a opera asupra datelor.Validarea propriu zisa se face prin metoda IsValid,care transforma un sir de date intr-o valoare de tip integer si returneaza TRUE daca valoarea este cuprinsa intre Min si Max,sau FALSE in caz contrar. EXEMPLU: program obiect38; uses WinCRT,Validate; const sir:string='777'; var z,y:longint; z:string; type PV=^V; V=object(TRangeValidator) constructor Init(AMin,AMax:longint); function IsValidInput(var S:string;SuppressFill:Boolean):Boolean; virtual; end; constructor V.Init(AMin,AMax:longint); begin inherited Init(70,9999); Min:=70; Max:=9999; end; function V.IsValidInput(var S:string;SupressFill:Boolean):Boolean; begin if IsValid(sir) = TRUE then writeln('Valoarea introdusa este cuprinsa intre 70 si 9999 !') else writeln('Valoarea introdusa este in afara domeniului acceptat !'); end; var Pcon:PV; begin InitWinCRT; writeln('Introduceti o valoare numerica: '); Readln(z); sir:=z; Pcon:=New(PV,Init(x,y)); Pcon^.IsValidInput(sir,TRUE); Dispose(Pcon); end. Exemplul este similar cu cel precedent,dar adaptat pentru un obiect de tip TRangeValidator.Cele doua obiecte pot fi combinate astfel incat sa valideze atat tipul de caractere utilizat cat si domeniul de valori pentru datele numerice in format integer.In plus,TRangeValidator contine si metoda Transfer,care permite preluarea datelor dintr-un tampon si con- versia acestora la un format acceptabil (poate utiliza date in line pre- luate din memoria de operare sau dintr-o retea etc.). -156- In cele doua exemple anterioare am redeclarat si redefinit tipul de data pentru cele doua obiecte de tip TValidator.Acest procedeu este util mai ales atunci cand doriti sa personalizati obiectul sau sa adaugati pro- ceduri si functii suplimentare.In situatiile in care doriti sa utilizati obiectele cu atributele si metodele standard,se pot utiliza obiectele asa cum sunt ele definite in unitatea Validate,cu conditia sa fie initializate corect. EXEMPLU: program obiect39; uses WinCRT,Validate; var sir:string; V:TFilterValidator; R:TRangeValidator; AMax,AMin:longint; begin V.ValidChars:=['a'..'z',' ','A'..'Z',',','.','0'..'9']; AMin:=777; Amax:=999999; V.Init(V.ValidChars); R.Init(AMin,AMax); writeln('Introduceti un sir de caractere: '); readln(sir); if V.IsValid(sir) = TRUE then writeln('Sirul contine doar caractere acceptate !') else writeln('Sirul contine si caractere nepermise !'); writeln('Introduceti un numar intreg: '); readln(sir); if R.IsValid(sir) = TRUE then writeln('Numarul este cuprins intre 777 si 999999 !') else writeln('Numarul este in afara domeniului de referinta !'); end. Acest gen de aplicatie este recomandabil atunci cand obiectul de validare urmeaza sa fie apelat de mai multe ori in cursul executiei programului, pentru a verifica seturi succesive de date.In acest caz,obiectul nu va fi eliberat din memorie imediat dupa executie,ci va ramne restant pe toata durata executiei programului (variabilele sunt eliberate automat la terminarea programului). Obiectele de tip TValidate sunt foarte mult utilizate si in programele de analiza automata a datelor.Astfel,datele sunt fragmentate si apoi sunt analizate cu un set intreg de obiecte de tip TValidate,trecand printr-un fel de "furci caudine".Datele care nu sunt validate,sunt extrase si sal- vate intr-un tampon de memorie,in care urmeaza sa fie supuse la alte ope- ratii de analiza. Obiectele de tip TValidator se pot utiliza si pentru a realiza motoare de cautare a datelor dintr-o retea.Astfel,de exemplu,pentru a identifica in reteaua Internet filele care contin un anumit tip de text,se pot uti- liza filtre de validare,care selecteaza un anumit caracter,un anumit for- mat al datelor,un anumit cuvant cheie etc. -157- Un obiect asemanator este TPXPictureValidator,care este descendent direct din TValidator si permite validarea unui set de date de tipul celor acceptate de programul tabelar pentru baze de date formatate numit Borland Paradox.Explcit,aceste date accepta si caractere cu sens general de tip !,@@,*,! etc. care pot fi utilizate cu urmatoarea semnificatie: Tipul caracterului Caracterul Descriere Special # Accepta doar un digit (cifra) ? Accepta doar o litera (mica sau mare) & Accepta doar o litera mare (majuscula) @@ Accepta orice caracter ! Accepta orice caracter (majuscula) Match ; Accepta urmatorul carcater ca atare * Repetitie [] Optiune {} Operator pentru grupare , Set de alternative (separator) Orice alt caracter ACSII Este acceptat ca atare TPXPictureValidator contine atributul Pic,care este un pointer de tip string spre sirul care contine parametrii acceptati si metodele:Init,Load, Done,Error,IsValid,IsValidInput,Picture si Store. Acest gen de obiect,permite formarea unor formate acceptabile,gen parola multipla,seturi alfanumerice,date preformatate pentru ListBox sau ComboBox si validarea sau invalidarea acestor tipuri de date,sau formatarea unor siruri de caractere dupa un format prestabilit (metoda Picture). EXEMPLU: program obiect40; uses WinCRT,Validate,Objects; var Control:TPXPictureValidator; const t1:string='!!!!!'; C1:string='!!!!!'; var Pt1:PString; N:Boolean; text:string; begin t1:='Cod??###'; writeln('Introduceti parola: '); Readln(text); C1:=text; Pt1:=@t1; Control.Init(Pt1^,True); N:=Control.IsValidInput(C1,False); if N = TRUE then writeln('parola: ',C1,' este corecta !') else writeln('Parola este incorecta !!!'); end. ( Parola corecta trebuie sa fie formata din Cod+doua litere+trei cifre.) -158- OBIECTE DEFINITE DE UTILIZATOR Exemplele anterioare au prezentat succint obiectele standard Windows Pascal,asa cum sunt ele implementate in unitati,sau cu mici adaptari determinate de aplicatia respectiva.Utilizarea obiectelor standard este destul de simpla si mai ales este destul de sigura,deoarece obiectele dispun de metode verificate pentru constructorii si destructorii obiecte- lor.Pentru incepatori,se recomanda mai ales utilizarea acestor obiecte, cu metodele lor implicite,sau cu adaugarea unor metode noi,concepute de catre utilizator.Prin combinarea metodelor standard si prin adaugarea de metode noi,se obtine o paleta destul de larga de optiuni,care pot satis- face majoritatea necesitatilor de programare. Se poate renunta complet la obiectele standard.Nu este dificil de declarat si definit un obiect personalizat,dar este ceva mai dificil de organizat si sistematizat memoria cu care lucreaza acest obiect.Astfel, in timpul compilarii si apoi in timpul executiei,un obiect poate apela toate tipurile de memorie (memoria fizica,memoria de RAM,memoria interna a procesorului,memoria extinsa etc.).Daca programatorul nu organizeaza corect procesele de scriere si respectiv stergere si eliberare a memo- riei,exista riscul ca obiectul declarat sa lase in urma sa portiuni mai mici sau mai mari de memorie,ramase neeliberate.In acest caz,memoria se fragmenteaza,nu mai poate fi apelata de procesele urmatoare si in scurt timp,calculatorul se blocheaza si afiseaza un mesaj de genul "Out of me- mory !". Pentru a definii obiecte noi,sunt necesare cateva notiuni elementare de organizare si structurare a memoriei,la care se adauga cateva reguli simple de conceptie si structurare a obiectelor.Literatura de speciali- tate abunda de explicatii si filozofii exhaustive.Acest manual nu prezinta decat cateva notiuni simpliste,strict necesare pentru a putea declara si definii un obiect.Manualul este doar la nivel de abecedar,urmand ca even- tualii cititori sa-si complecteze cunostiintele din alte surse. Obiectele sunt niste structuri de date,utilizate pentru organizarea informatiei si a modului de prelucrare a acesteia.Datele sunt incluse in obiect sub forma de membrii (campuri de date) si pot avea caracter public sau privat.In mod implicit,toate datele din membrii unui obiect au carac- ter privat,adica nu pot fi accesate din afara modulului.In situatiile in care se doreste accesul la membrii unui obiect,prin functii sau comenzi din exteriorul modulului,este necesar ca membrii respectivi sa fie decla- rati cu comanda standard PUBLIC.Modalitatile de prelucrare a informatiei din obiect se structureaza sub forma de proceduri,functii,constructori si destructori.Procedurile si functiile se definesc la fel ca si cele din exteriorul obiectelor iar constructorul si destructorul sunt proceduri specializate,destinate pentru initializarea si respectiv stergerea din memorie a obiectului respectiv.Metodele pot fi statice(se definesc imediat dupa declararea obiectului) sau virtuale (se pot definii la un moment dat ulterior,permit declararea de obiecte abstracte).Apelul catre metodele statice se rezolva in momentul compilarii(eventualele erori determina erori de compilare) in timp ce apelul la metodele virtuale se rezolva doar in momentul executiei (eventualele erori sunt identificate doar in momentul executiei).Metodele statice pot fi declarate fara nici o restric- tie in timp ce metodele virtuale trebuie sa respecte sintaxa initiala. -159- Asadar,atunci cand utilizati metode virtuale,definitia procedurii trebuie sa contina acelasi numar de argumente si sa respecte aceeasi sintaxa ca si in declaratia initiala.Obiectele care contin metode virtuale tin evidenta acestor metode cu cu ajutorul unei tabele interne denumita VMT(Virtual Method Table).Aceasta tabela interna se creaza automat in cursul etapei de initializare a obiectului,in momentul apelarii construc- torului. Programatorii avansati pot sa organizeze memoria dupa bunul plac si sa-si defineasca singuri constructorii si destructorii.Pentru programa- torii incepatori,se recomanda o metoda mai simpla,si anume utilizarea unor obiecte standard pentru initializarea si respectiv pentru distru- gerea si eliberarea obiectului,combinata cu declararea sau redeclararea procedurilor specifice de lucru.Pentru acest scop,cel mai practic obiect este TObject,care necesita foarte putina memorie dar asigura un construc- tor si un destructor standard. EXEMPLU: program program obiect41; uses WinCRT,Objects; var a:integer; type PObiect1=^obiect1; obiect1=object(TObject) procedure rand1;virtual; end; procedure obiect1.rand1; var x,y:integer; begin Randomize; writeln('Numerele extrase sunt: '); for x:=1 to 6 do begin y:=Random(50); writeln(y:8); end; end; var OB1:^obiect1; begin InitWinCRT; OB1:=New(Pobiect1,Init); OB1^.rand1; OB1^.Done; end. Observati ca Tobject ofera constructorul Init,care imi permite sa de- clar si sa definesc o metoda virtuala si respectiv destructorul Done cu care eliberez memoria fara nici un fel de complicatii ulterioare. Asadar,o metoda intermediara intre obiectele standard si cele de tip user este reprezentata prin utilizarea unui obiect standard pentru con- structie si destructie,combinata cu declararea de metode proprii. Multe manuale,prezinta obiectele de programare prin comparatie cu obiectele din natura.Personal nu agreez aceasta comparatie.Obiectele din natura nu sunt abstracte,nu se mostenesc,nu sunt polimorfe,nu se pot transforma in alt obiect,nu sunt dinamice etc... -160- Daca se renunta la procedurile virtuale,se poate renunta si la con- structorul specializat,dar operatiile de curatare a memoriei pot fi destul de dificile in unele situatii.Si in aceste cazuri,trebuie tinut cont de domeniul de vizibilitate al fiecarui membru al obiectelor.Implicit toti membrii sunt invizibili din afara obiectului.Datorita acestei proprietati se poate utiliza chiar si un identificator care exista si in afara obiec- tului,fenomen care poarta numele de supraincarcarea identificatorului. EXEMPLU: program obiect42; uses WinCRT; var a:integer; procedure bucla; begin for a:=1 to 10 do writeln('a= ',a); end; type O1=object procedure bucla; end; procedure O1.bucla; begin for a:=20 to 30 do writeln('a= ',a); end; var O:O1; begin InitWinCRT; Writeln('Executia buclei exterioare: '); bucla; writeln('Executia buclei interioare: '); O.bucla; Dispose(@O); end. Observati ca a este vizibil pentru ambele proceduri,si ca ambele proce- duri poarta acelasi nume(bucla),fara se genereze o eroare de executie. Acest fapt se datoreaza faptului ca programul utilizeaza pointeri diferiti spre metodele obiectului fata de cei orientati spre procedurile externe. Chiar daca nu implementeaza cu nimic asupra executiei programului, acest gen de supraincarcare a identificatorului nu este recomandabil, deoarece ingreuneaza foarte mult procesul de depanare al programelor. Astfel,intr-un program complex cu mii de linii de editare si numeroase functii si proceduri,se utilizeaza instrumente de cautare automata,care se vor opri la prima procedura declarata cu numele respectiv,fara sa poata verifica daca este cea dorita sau nu.In general,orice obicei prost se perpetueaza spre forme din ce in ce mai complexe !.Daca nu reusiti sa gasiti nici un nume clar si sugestiv pentru metoda pe care doriti sa o implememntati este mai probabil ca nu stiti inca ce anume doriti sa faceti (este mai bine sa reganditi intreaga strategie).Pentru programele mari, si foarte mari,este bine sa desenati pe o hartie,o diagrama de flux a principalelor structuri aflate in executie,si sa tineti o evidenta cat mai clara a identificatorilor utilizati.Exista si utilitare special desti- nate acestui scop,dar prea multa prudenta nu strica niciodata. -161- In exemplul anterior,am renuntat la destructor si am utilizat doar functia Dispose,pentru eliberarea memoriei.In cazul obiectelor simple si unice,care ocupa putin spatiu de memorie,constructorul si destructorul au o importanta mai redusa,si pot chiar sa lipseasca (in programele mici). In situatiile in care urmeaza sa se construiasca un numar mare de obiecte de acelasi fel,constructorul si destructorul incep sa detina un rol de- terminant in definitia obiectului.Astfel,in cazul jocurilor pentru cal- culator,rutinele de joc construiesc si distrug in fiecare secunda diverse obiecte (uneori zeci sau sute de obiecte simultan).In aceste situatii, cea mai mica eroare de gestionare a memoriei determina blocarea jocului. Constructorul,este o metoda ca oricare alta,dar se identifica prin denumirea constructor si un anumit nume.Cel mai frecvent identificator utilizat este Init,dar nu este obligatoriu(puteti utiliza orice nume). Constructorul se utilizeaza de obicei pentru a aloca memoria necesara, sau pentru a initializa cu valori unele variabile: EXEMPLU: program obiect43; uses WinCRT; type O1=object a,b,c:string; constructor Init; end; constructor O1.Init; begin a:='Primul camp de date.'; b:='Al doilea camp de date.'; c:='Al treilea camp de date.'; end; var O:O1; begin InitWinCRT; O.Init; writeln(O.a); writeln(O.b); writeln(O.c); Dispose(@O); end. In exemplul de mai sus,constructorul initializeaza variabilele de tip string.Pentru apelarea acestor valori,este necesar ca obiectul declarat din tipul respectiv sa fie initializat,dupa care se pot apela membrii cu valorile atribuite in momentul constructiei. Utilizatorul poate implementa orice alt tip de actiuni,dar in etapa de constructie nu poate utiliza instructiuni de tip GOTO care sa transfere executia in afara constructorului,deoarece in acest caz obiectul va ra- mane nedefinit.Concret,nu se pot apela functiile si procedurile utilizate de obiect ca metode,pentru a efectua operatii in etapa de constructie a obiectului(constructorul nu poate apela metodele obiectului). Un obiect poate avea un singur constructor,sau poate avea mai multi constructori.In situatiile in care obiectul are mai multi constructori, ecestia pot efectua aceleasi operatii,dar cu valori diferite,sau pot contine operatii complet diferite.Cand exista mai multi constructori, trebuie ales cu atentie cel care va fi apelat prin functia New. -162- Doi sau mai multi constructori pot determina doua sau mai multe instan- te ale obiectului. EXEMPLU: program obiect44; uses WinCRT; type O1=object a,b:string; constructor Unu; constructor Doi; end; constructor O1.Unu; begin a:='Primul text din primul constructor'; b:='Al doilea text din primul constructor'; end; constructor O1.Doi; begin a:='Primul text din al doilea constructor'; b:='Al doilea text din al doilea constructor'; end; var O:O1; begin InitWinCRT; O.Unu; writeln(O.a); writeln(O.b); writeln; O.Doi; writeln(O.a); writeln(O.b); Dispose(@O); end. Atunci cand exista mai multi constructori,nu este obligatoriu sa fie apelati toti,dar este necesar sa fie apelat cel putin unul dintre cei care determina formarea obiectului.In aceste cazuri,constructorii pot fi apelati succesiv,sau dupa bunul plac.Unele obiecte pot contine si un constructor cu procedurile necesare in etapa de depanare a programului, constructor ce nu va fi apelat decat in situatiile in care apare o eroare de executie.Alte programe pot contine si un constructor care formeaza un tampon de reciclare o obiectelor eliberate,in care aduna toate obiectele care au fost eliberate din memoria de operare,pentru a putea fi eventual reapelate la un anumit momemt ulterior al executiei.O alta situatie foarte frecventa este in cazul aplicatiilor grafice,cand un obiect poate contine constructori pentru mai multe figuri geometrice,desene,grafice etc. Atunci cand un obiect poate avea mai multe forme evolutive,construc- torii pot fi apelati succesiv,pana cand se ajunge la etapa evolutiva dorita (pentru economie de memorie nu se utilizeaza etapa finala de evo- lutie ci doar una dintre etapele intermediare). Atunci cand un obiect mosteneste un alt obiect,constructorul apeleaza initial constructorii mosteniti de la ancestori,pentru a realiza partile de obiect mostenite de la acestia,dupa care apeleaza constructorii proprii pentru a determina trasaturile specifice ale descendentului. -163- EXEMPLU: program obiect45; uses WinCRT; type O1=object a,b,c:string; constructor Init; end; constructor O1.Init; begin a:='Primul camp de date.'; end; type O2=object(O1) constructor Valori; end; constructor O2.Valori; begin inherited Init; b:='Campul de date b'; c:='Campul de date c'; end; var O:O2; begin InitWinCRT; O.Valori; writeln(O.a); writeln(O.b); writeln(O.c); Dispose(@O); end. Observati ca obiectul O2 nu numai ca mosteneste de la obiectul O1 cele trei valori de tip string,dar variabila a este gata initializata de catre constructorul Init,ca urmare a apelului inherited Init din cel de al doilea constructor. Pentru a specifica relatia de mostenire,tipul obiectului ancestor este trecut in paranteza imediat dupa cuvantul cheie object(Exemplu object(O1) inseamna ca obiectul este descendent din O1). In situatiile de mostenire multipla,cand un obiect are mai multi ancestori,acesti se trec in paranteza,separati prin virgula,indiferent de ordinea aparitiei (Exemplu: =object(O1,O3,O5) inseamna ca obiectul respectiv mosteneste obiectele O1,O3 si O5. Atunci cand exista un constructor,in mod normal se implementeaza si un destructor care efectueaza operatiile inverse(eliberarea memoriei). Destructorul este o procedura ca oricare alta.Destructorul sterge accesul la obiectul respectiv prin stergerea pointerului.Nu intotdeauna obiectul este sters din memorie complet (in unele situatii este reciclat intr-un tampon special,de unde poate fi reutilizat).Destructorul poate utiliza orice identificator,dar cel mai frecvent este Done.Destructorul nu poate apela instructiuni care transfera executia in afara destructorului deoare- ce in acest caz obiectul va fi nedefinit (destructorul nu poate apela metodele obiectului).Destructorul executa toate operatiile de curatare a memoriei,si orice alte operatii dorite de programator.Calitatea destruc- torului reflecta de obieci destul de fidel calitatea programatorului. -164- EXEMPLU: program obiect46; uses WinCRT; type O1=object Pa^:string; constructor Init; destructor Done; end; constructor O1.Init; begin GetMem(Pa,256); writeln('S-a rezervat memorie pentru pointerul Pa'); end; destructor O1.Done; begin FreeMem(Pa,256); writeln('S-a eliberat memoria rezervata pentru Pa'); end; var O:O1; begin InitWinCRT; writeln('Constructorul:'); O.Init; writeln('Destructorul:'); O.Done; Dispose(@O); end. La fel ca si in cazul constructorilor,un obiect poate avea mai multi destructori,care efectueaza etape succesive,sau care asigura una sau mai multe alternative de eliberare a obiectului din memorie.In mod sim- plist,se spune ca destructorul sterge obiectul din memorie,dar,practic exista o paleta intreaga de posibilitati de tratare a obiectului in momentul in care nu mai este necesar pentru executie.Astfel,obiectul poate fi desmembrat,poate fi salvat intr-un tampon de memorie,poate fi transferat intr-un alt modul sau poate fi arhivat in memoria fizica, poate fi salvat intr-un stream sau poate fi transformat in alt obiect, care este inca in uz,etc... Pentru obiectele importante,puteti utiliza mai multi destructori cu care urmeaza apoi sa manevrati dupa necesitatile de moment ale progra- mului.Este mai usor de transformat un obiect functional,decat de redefinit unul nou.Alegerea destructorului va fi determinata de tipul de operatii dorit.Destructorul poate sa contina si o serie de operatii suplimentare, cum ar fi:salvarea unor date pe file de disc,analiza si arhivarea unor procese de executie pana in momentul respectiv,analiza de moment sau de etapa a programului,analiza de moment a memoriei si efectuarea unor eventuale operatii suplimentare de curatare (eliminarea spatiilor goale, defragmentarea,eliberarea variabilelor epuizate etc.). Cea mai utila operatie este cea de analiza si eliberare a memoriei de operare si eventual a proceselor aflate in curs de executie,deoarece acestia sunt factorii de care depinde buna executie ulterioara a pro- gramului.Operatiile cu celelalte tipuri de memorie sunt facultative si mai putin urgente (se efectueaza de obicei la sfarsitul programului). -165- EXEMPLU: program obiect47 uses WinCRT,WinProcs,WinTypes; var w,d,p:integer; type ob1=object; constructor Init; constructor Cerc; constructor Patrat; destructor Cerc1; destructor Patrat1; end; constructor ob1.Init; begin InitWinCRT; w:=GetActiveWindow; d:=GetDC(w); end; constructor ob1.Cerc; begin Ellipse(d,50,50,100,100); end; constructor ob1.Patrat; begin Rectangle(d,100,50,250,100); end; destructor ob1.Cerc1; begin p:=CreatePen(PS_Solid,1,RGB(255,255,255)); SelectObject(d,p); Ellipse(d,50,50,100,100); end; destructor ob1.Patrat1; begin Rectangle(d,100,50,250,100); DeleteObject(p); TextOut(d,50,50,'Sfarsit',7); end; var desen:ob1; begin desen.Init; desen.Cerc; TextOut(d,300,10,'Tastati ENTER !',15); readln; desen.Patrat; TextOut(d,300,40,'Tastati ENTER !',15); readln; desen.Cerc1; TextOut(d,300,70,'Tastati ENTER !',15); readln; desen.Patrat1; Dispose(@desen); end. -166- Dupa ce a fost definit tipul unui obiect,obiectul respectiv poate fi construit ori de cate ori este necesar.Modalitatea cea mai simpla este sa declarati variabile din tipul respectiv de data,ori de cate ori este necesar.O alta modalitate o reprezinta alocarea dinamica a unui grup de obiecte din tipul respectiv,cu ajutorului unei rutine repetative: EXEMPLU: program obiect48; uses WinCRT; var x:integer; type Pob=^ob; ob=object constructor Init; end; constructor ob.Init; begin writeln('Obiectul: ',x); writeln('Patratul lui ',x,' este: ',Sqr(x)); writeln; end; var N:array[0..10] of Pob; begin InitWinCRT; for x:=1 to 7 do begin N[x]:=New(Pob,Init); Dispose(N[x]); end; end. Pentru a simplifica apelarea functiei New,pentru constrirea automata a obiectelor,am utilizat o arie de pointeri spre variabile de tipul obiect- ului declarat.Pentru a elibera obiectele construite,am utilizat acelasi pointer.In exemplele anterioare,am utilizat cate o variabila din tipul de obiect si apoi am apelat pointerul spre acea variabila(adresa variabi- lei) pentru a putea elibera memoria cu ajutorul lui Dispose.Acest apel este corect,chiar daca nu am declarat explicit un pointer spre variabila de tip obiect,deoarece sistemul creaza automat un pointer spre orice variabila declarata(pointerul implicit al variabilei),cu ajutorul caruia gestioneaza si acceseaza memoria ori de cate ori este necesar. Acest gen de rutine,care construiesc automat obiecte similare este utilizat mai ales pentru jocurile grafice pe calculator.Este extrem de important ca in aceste situatii,obiectele sa fie eliberate corect din memorie.Din acest motiv este bine sa existe un destructor dedicat doar pentru eliberarea memoriei.In exemplul de mai sus,obiectele sunt eli- berate imediat dupa constructie,astfel incat nu exista nici un risc pentru defragmentarea memoriei.In situatiile reale,fiecare obiect nou creat, trebuie sa functioneze independent de celelalte si sa poata fi accesat, actualizat sau eliberat,atat independent cat si in grup cu o parte,sau cu toate celelalte obiecte de acelasi fel. Atunci cand utilizati astfel de functii automate,este bine sa programati si o functie de control,care tine in permanenta evidenta memoriei ramasa libera si eventual avertizeaza in momentul in care memoria scade la valori critice(intrerupe execitia cu un mesaj de avertizare !). -167- Un obiect poate mostenii mai multe obiecte(mostenire multipla).In ver- siunile mai noi ale programului,acest fapt se specifica prin simpla insi- riure in paranteza a obiectelor ancestoare,indiferent de ordinea in care au fost mentionate(Exemplu: type ob4=object(ob1,ob2,ob3) specifica faptul ca obiectul ob4 mosteneste cele trei obiecte:ob1,ob2 si ob3 ). In versiunile mai vechi ale programului,se poate introduce un singur obiect in paranteza care specifica ascendenta,astfel incat in cazul mos- tenirii multiple,trebuie procedat arborescent: EXEMPLU: program obiect49; uses WinCRT; var a,b,c:integer; type ob1=object constructor Unu; end; constructor ob1.Unu; begin a:=77; end; type ob2=object(ob1) constructor Doi; end; constructor ob2.Doi; begin b:=155; end; type ob3=object(ob2) constructor Trei; end; constructor ob3.Trei; begin inherited Unu; inherited Doi; c:=10; end; var obiect1:ob3; begin obiect1.Trei; writeln('Primul constructor: a= ',a); writeln('Al doilea constructor: b= ',b); writeln('Al treilea constructor: c= ',c); Dispose(@obiect1); end. Observati constructia arborescenta: ob2 mosteneste pe ob1 si ob3 moste- neste pe ob2.Daca excludeti constructorii mosteniti de la primele doua obiecte (cei introdusi in constructorul Trei cu "inherited"),atunci cele doua variabile a si b var fi neinitializate (var avea valoarea zero). Practic,obiectul final a mostenit ambele obiecte ancestoare si a apelat constructorul pentru fiecare dintre ele,inainte de a adauga constructorul propriu.Acest mecanism este util pentru construirea unor obiecte complexe. Reciproc,destructorii pot desface un obiect complex in parti componente, care vor fi utilizate ca atare,sau vor fi eliberate cu destructorul lor. -168- In cazul obiectelor cu mostenire multipla,atunci cand se utilizeaza si proceduri virtuale,acestea pot fi redefinite la nivelul descendentilor, cu conditia sa se respecte sintaxa si numarul de argumente din prima declaratie: EXEMPLU: program obiect50; uses WinCRT; type ob1=object a:integer; constructor Unu; procedure text;virtual; end; constructor ob1.unu; begin a:=1; writeln('Constructor unu: a= ',a); end; procedure ob1.text; begin end; type ob2=object(ob1); b:integer; constructor Doi; end; constructor ob.Doi; begin b:=2; writeln('Constructor doi: b= ',b); end; type ob3=object(ob2) c:integer; constructor Trei; procedure text;virtual; end; constructor ob3.Trei; begin inherited Unu; inherited Doi; c:=3; writeln('Constructor trei: c:= ',c); end; procedure ob3.text; begin writeln('Procedura virtuala "text" a fost redefinita'); end; var obiect1:ob3; begin obiect1.Trei; obiect1.text; Dispose(@obiect1); end. Observati ca variabilele a,c,b sunt locale,iar procedura text(initial nula ) a fost redefinita.Similar,un obiect poate avea mai multi mostenitori: -169- EXEMPLU: program 51; uses WinCRT; type ob1=object a:integer; constructor Unu; procedure text;virtual; end; constructor ob1.Unu; begin a:=1; writeln('Constructor unu: a= ',a); end; procedure ob1.text; begin end; type ob2=object(ob1) b:integer; constructor Doi; procedure text;virtual; end; constructor ob.Doi; begin inherited Unu; b:=2; writeln('Constructor doi: b= ',b); end; procedure ob2.text; begin writeln('Procedura Text din primul obiect mostenitor'); end; type ob3=object(ob1) c:integer; constructor Trei; procedure text;virtual; end; constructor ob3.Trei; begin inherited Unu; c:=3; writeln('Constructor trei: c:= ',c); end; procedure ob3.text; begin writeln('Procedura text din al doilea obiect mostenitor'); end; var obiect1:ob2; obiect2:ob3; begin obiect1.Doi;obiect1.text; obiect2.Trei;obiect2.text; Dispose(@obiect1);Dispose(@obiect2); end. -170- Observati ca din obiectul initial ob1 am derivat doua obiecte diferite, in care am redefinit procedura virtuala Text in mod diferit(in locul unui text,procedura din functia respectiva poate contine orice implementare). Exact acesta este rostul procedurilor virtuale.Se utilizeaza in obiectele cap de serie (ancestor) din care urmeaza sa fie derivate alte obiecte si au rolul de a predefini unele trasaturi comune pentru toate obiectele mostenitoare(dar pot fi redefinite in mod diferit in descendenti). Versiunile mai noi (si limbajul C++) au introdus notiunea de clasa (Class) prin care se definesc toate obiectele posibile dintr-un anumit tip predefinit.Clasa reprezinta doar o structura comuna si un set de proprietati comune,care se intalnesc la toate obiectele din clasa respec- tiva.Un obiect nu este decat o instanta a clasei sale,sau altfel spus, una dintre variantele posibile ale clasei sale.La fel ca si pentru obiecte se utilizeaza termenii de parinte-copil sau ancestor-descendent (mosteni- tor) pentru a specifica relatia care exista intre doua clase. Prin mostenire se intelege de fapt procesul de specializare sau rafinare al unei clase deja existente(obiectul mostenitor,adauga ceva sau actuali- zeaza obiectul mostenit).Obiectul descendent nu poate sterge membrii de- clarati in ancestori si nici nu poate sa le modifice tipul de data,dar poate sa nu apeleze membrii care nu sunt necesari.Obiectul mostenitor, poate redefini sau actualiza membrii mosteniti astfel incat sa primeasca alte valori,sau valente noi. In cazul mostenirii multiple,descendentul mosteneste toti membrii si toate metodele ancestorilor,chiar daca nu utilizeaza decat o parte din acestia.Metodele si membrii din obiectul descendent trebuie sa utilizeze alt identificator(alt nume) decat cele mostenite (in caz contrar,cele mostenite vor fi suprascrise si nu vor mai putea fi apelate cu sensul initial). Nu este bine sa abuzati de mostenirea multipla,doar pentru ca obiectul realizat "sa aiba de toate",deoarece toate metodele neutilizate ocupa din memoria de operare in mod nejustificat.Este bine sa alegeti intotdeauna solutia cea mai economicoasa care solitioneaza problemele de moment. Orice metoda care nu este urmata de cuvantul cheie "virtual" este o metoda statica si poate fi redefinita dupa bunul plac. In afara metodelor statice si virtuale,exista si metode denumite ab- stracte.Obiectele abstracte sunt punctul de plecare in ierarhia seriilor de obiecte descendente si contin doar proprietatile comune pentru toti descendentii.Metodele abstracte sunt un tip special de metode virtuale (cele statice nu pot fi abstracte) si au rolul de a enunta doar numele unei metode comune pentru toti descendentii.Este obligatoriu ca toate metodele abstracte sa fie definite la nivelul descendentilor(metodele abstracte nu sunt implementate in nici un fel-au doar identificator). Nu se pot crea instante ale claselor abstracte.Metodele abstracte nu pot fi apelate direct (returneaza mesaj de eroare de executie run time 211). Metodele abstracte trebuiesc redefinite respectend strict sintaxa initiala EXEMPLU: procedure Nr10;virtual;abstract; =la nivel de ancestor procedure Nr10;virtual; =la nivel de descendent procedure Nr10; =implementarea propriu zisa Vizibilitatea membrilor din obiecte este determinata de tipul variabilelor (globale sau locale) si de eventualele specificatii exprese de tip public, private sau protected. -171- O variabila de tip obiect poate fi continuta de o procedura sau de o functie.In acest caz,un obiect poate fi apelat si eliberat,in mod dinamic, in momentul in care este necesar pentru executia programului: EXEMPLU: program obiect52; uses WinCRT; var x:integer; y:longint; type ob1=object constructor Init; end; constructor ob1.Init; begin writeln(' Obiectul specializat:'); writeln(' operatia specializata(tip polinom):'); y:=(y*y*y)+(73*y*y)+(17*y)+y+3; writeln(' rezultatul obtinut este: y= ',y); end; procedure operatie1; var nn:ob1; begin nn.Init; Dispose(@nn); end; begin InitWinCRT; for x:=1 to 10 do begin write('x= ',x); y:=x*x; writeln(' y= ',y); if x = 3 then operatie1; if x = 5 then operatie1; if x = 7 then operatie1; end; end. Observati ca bucla for..do apeleaza procedura operatie1,care initiali- zeaza si apoi elibereaza obiectul,ori de cate ori este necesar.In mod similar,se pot realiza proceduri care opereaza cu mai multe obiecte ce pot fi activate si apoi eliberate succesiv,sau chiar simultan. Caracteristicile unui obiect,pot fi prezentate sintetic astfel: 1. - un obiect este o entitate a clasei sale 2. - un obiect este creat de catre un constructor 3. - fiecare obiect apartine unui anumit tip (type),iar tipul obiectului este apelat de catre constructorul sau. 4. - obiectul contine date,membri,metode,constructori si destructori asa cum au fost definiti in tipul de obiect,chiar daca au sau nu au vizi- bilitate in momentul respectiv 5. - un obiect poate fi accesat prin referinta sa(pointerul sau) 6. - referinta poate fi atribuita unei variabile,sau poate fi returnata de catre o functie (functia returneaza un pointer spre obiect) 7. - toate referintele nenule pointeaza un obiect -172- 8. - referinta unui obiect este o valoare (nenula) 9. - o variabila poate fi atribuita ca referinta spre un obiect din tipul respectiv,pentru orice descendent al sau si pentru orice alt obiect care are acelasi tip cu variabila respectiva(nu poate pointa spre un alt tip de data) 10. - referinta unui obiect poate fi utilizata doar in expresii care opereaza cu tipul respectiv de data.In caz ca se utilizeaza pentru un alt tip de data(obiecte de alt tip) se va obtine o eroare de executie (returneaza un mesaj de tip "dinamic-violation") 11. - indiferent de tipul referintei,metoda activata dintr-un obiect,este cea determinata de tipul obiectului respectiv 12. - obiectele si membrii obiectelor se pot transfera atat prin valoarea lor cat si ca parametrii de tip variabila Pentru operatiile cu si asupra obiectelor exista o serie de parametri impliciti,folositori.Astfel,Self este referinta spre obiectul de care apartine metoda,constructorul sau destructorul activat prin expresia res- pectiva (iar @Self spre adresa acestuia).Null este o constanta compatibila cu orice tip de data.Se poate utiliza pentru starea initiala a oricrei clase (sau obiect).Este analog cu pointerul nil.Operatorul IS se poate utiliza pentru a verifica apartenenta unui obiect.Returneaza TRUE daca obiectul apartine clasei specificate sau FALSE in caz contrar. Metodele unui obiect pot fi functii sau proceduri si se apeleaza la fel ca si functiile si procedurile obisnuite: EXEMPLU: program obiect54; uses WinCRT; var I,N:integer; type numere=object function Prime( N: integer):Boolean; end; function numere.Prime( N: integer):Boolean; var I : integer; begin for I :=2 to N-1 do if (N MOD I = 0) then begin Prime := False; Exit; end; Prime := True; end; var nr:numere; begin InitWinCRT; writeln('Primele 20 de numere prime sunt: '); N := 72; for I := 2 to N do if nr.Prime(I) then Writeln(' ',I); end. -173- Observati ca obiectul contine doar o functie simpla si ca este accesat la fel ca o functie(in cadrul unei expresii-" if nr.Prime(I) then...") deoarece in momentul initializarii returneaza functia respectiva. Acelasi exercitiu se poate implementa utilizand o procedura (alta metoda): EXEMPLU: program obiect53; uses WinCRT; const MaxPrimes = 80; type PrimeArray = array[1..100] of integer; var Primes:PrimeArray; CurPrime,LastPrime,J:integer; GetOut:Boolean; type numere=object procedure nrprime; end; procedure numere.nrprime; begin Primes[1]:=2;Primes[2]:=3; LastPrime:=2;CurPrime:=3; Writeln('Primul numar =2'); Writeln('Numarul prim 2 = 3'); while CurPrime < MaxPrimes do begin GetOut := False; J := 1; while (J <= LastPrime) and (not GetOut) do begin if ( CurPrime mod Primes[J] ) = 0 then begin CurPrime := CurPrime +2; GetOut := True; end else Inc(J); end; { sfarsitul buclei while J } if J > LastPrime then begin inc(LastPrime); writeln('Numarul prim ',LastPrime,' = ',CurPrime); Primes[LastPrime] := CurPrime; CurPrime := CurPrime +2; end; end; {sfarsitul primei bucle while } end; {sfarsitul procedurii nrprime } var nr:numere; begin InitWinCRT; nr.nrprime; Dispose(@nr); end. Pentru a obtine un numar diferit de numere prime,modificati valoarea constantei MaxPrimes si respectiv numarul de elemente din aria PrimeArray. -174- Ultimele doua exemple au fost obtinute prin transformarea exemplelor prime0pa.pas si prime1pa.pas (c:\bp\examples\tprof) din tutorialul care insoteste programul. Un obiect programat de catre utilizator este bina sa contina toate datele si operatiile de care are nevoie in executie,astfel incat sa poata fi apleat in orice moment,indiferent de mediul de operare si respectiv sa poata fi eliberat complet (fara sa lase "urme" in memorie). EXEMPLU: program obiect55; uses WinCRT,WinProcs,WinTypes; var x:integer; type desen=object w,h,p:integer; constructor Init; procedure figuri; end; constructor desen.Init; begin InitWinCRT; Randomize; w:=GetActiveWindow; h:=GetDC(w); end; procedure desen.figuri; begin p:=CreatePen(PS_SOLID,10,RGB(Random(255),Random(255),Random(255))); Select Object(h,p); Ellipse(h,Random(400),Random(400),Random(400),Random(400)); Rectangle(h,Random(400),Random(400),Random(400),Random(400)); DeleteObject(p); end; var D:desen; begin D.Init; for x:=1 to 10 do begin D.figuri; end; Dispose(@D); end. Observati ca obiectul contine un constructor si o procedura propriu zisa.Constructorul creaza contextul de dispozitiv si initializeaza ge- neratorul de numere aleatoare.Procedura creaza si selecteaza o penita grafica,cu o culoare aleatorie,dupa care deseneaza o elipsa si un patrulater,apoi elibereaza din memorie penita grafica. Obiectul este apelat in mod repetat din interiorul unei bucle,prin procedura sa grafica.Observati ca fiecare instanta a obiectului are o alta culoare a penitei si respectiv o alta pozitie a figurilor geometrice. Pentru a obtine un numar diferit de figuri,se modifica doar valoarea buclei de repetitie,iar pentru a modifica figurile se modifica doar procedura "figuri".Pentru a adauga o alta operatie suplimentara,se poate adauga o metoda noua.In loc de destructor,am eliberat tot obiectul. -175- In mod similar,doua sau mai multe metode ale obiectului pot fi apelate selectiv,in functie de o comanda introdusa de la tastatura: EXEMPLU: program obiect 56; uses WinCRT,WinProcs,WinTypes; var x:integer;c:char; type desen=object w,h,p:integer; constructor Init; procedure Patrate; procedure Elipse; end; constructor desen.Init; begin InitWinCRT; Randomize; w:=GetActiveWindow; h:=GetDC(w); end; procedure desen.Patrate; begin ClrScr; p:=CreatePen(PS_SOLID,10,RGB(Random(255),Random(255),Random(255))); SelectObject(h,p); Textout(h,10,10,'Tastati a sau b apoi Enter !',31); for x:=1 to 10 do Rectangle(h,20+40*x,20+20*x,20+30*x,20+30*x); DeleteObject(p); end; procedure desen.Elipse; begin ClrScr; TextOut(h,10,10,'Tastati alternativ a sau b si apoi Enter !',31); for x:=1 to 10 do Ellipse(h,300,20+40*x,20+20*x,20+25*x); end; var D:desen; begin D.Init; D.Patrate; for x:=1 to 5 do begin read(c); if c = 'a' then D.Patrate; if c = 'b' then D.Elipse; end; Dispose(@D); ens. Apelati alternativ cele doua metode,tastand a sau b si ENTER. -176- EXEMPLU 2: program obiect57; uses WinCRT,WinProcs,WinTypes; var x:integer; c:char; type desen=object w,h,p,y,z:integer; constructor Init; procedure orizontal; procedure vertical; end; constructor desen.Init; begin InitWinCRT; Randomize; w:=GetActiveWindow; h:=GetDC(w); y:=100;z:=100; end; procedure desen.orizontal; begin ClrScr; p:=CreatePen(PS_SOLID,10,RGB(10,200,10)); Select Object(h,p); Textout(h,100,10,'Tastati a sau b,apoi ENTER(succesiv)',39); y:=y+20;z:=100; Rectangle(h,y,z,y+z,z+z); DeleteObject(p); end; procedure desen.vertical; begin ClrScr; p:=CreatePen(PS_SOLID,10,RGB(200,10,10)); TextOut(h,100,10,'Tastati a sau b si apoi ENTER(succesiv)',39); SelectObject(h,p); z:=z+20;y:=100; Rectangle(h,y,z,y+y,y+z); DeleteObject(p); end; var:desen; begin D.Init; D.Orizontal; for x:=1 to 50 do begin read(c); if c = 'a' then D.Orizontal; if c = 'b' then D.Vertical; end; Dispose(@D); end. -177- Acest gen de aplicatii se utilizeaza pentru programarea jocurilor gra- fice.Pentru simplificarea programarii,fiecare obiect grafic contine toate metodele necesare pentru constructia,deplasarea sau actualizarea si remo- delarea obiectului,rutine ce sunt apelate in bucle repetitive,la fel ca in cele doua exemple precedente. Un obiect poate fi destinat si pentru a executa o operatie specializata cum ar fi compararea dintre doua siruri,cautarea unui cavant sau sir de caractere intr-un text,ordonarea si sortarea sirurilor etc. EXEMPLU: program obiect58; uses WinCRT,Strings; type S1=array[0..80] of char; type ob1=object date1:array[0..10] of S1; constructor Init; procedure Verifica; end; constructor ob1.Init; begin StrPCopy(date1[1],'Parola 1'); StrPCopy(date1[2],'Parola 2'); StrPCopy(date1[3],'Parola 3'); StrPCopy(date1[4],'1x1x1x1x'); StrPCopy(date1[5],'#Parola#'); end; procedure ob1.Verifica; var sir: string; R:array[0..80] of char; n,q:integer; begin writeln('Introduceti parola : '); readln(sir); StrPCopy(R,sir); for n:=1 to 10 do begin if StrComp(date1[n],R) = 0 then begin writeln('Parola introdusa este corecta !'); q:=77; end; end; if q <> 77 then writeln('Parola introdusa este incorecta !'); end; var obiect:ob1; begin InitWinCRT; obiect.Init; obiect.Verifica; Dispose(@obiect); end. Verificati cele cinci parole,sau adaugati altele. -178- Obiectele se pot utiliza si pentru a organiza si administra resurse de tip Icon,Cursor,BitMap,Strings table etc.Resursele se creaza cel mai usor cu Resource Workshop(din meniul Tools),se incarca cu {$R ...} si apoi se apeleaza cu Load... EXEMPLU: program obiect59; uses WinCRT,WinProcs,WinTypes; {$R masina} var w,h,i,d: integer; t1,t2:longint; type ob1=object constructor Init; procedure Desen; end; constructor ob1.init; begin InitWinCRT; w:=GetActiveWindow; h:=GetDC(w); i:=LoadIcon(hInstance,'ICON_1'); t1=GetCurrentTime; end; procedure ob1.Desen; begin d:=500; repeat Drawicon(h,d,200,i); t2:=GetCurrentTime; if (t2-t1)/5 = int(t2-t1)/5) then d:=d-1; until t2>(t1+3000); end; var obiect:ob1; begin obiect.Init; obiect.desen; Dispose(@obiect); end. Puteti utiliza orice alta data de tip icon,dintre cele standard sau creata cu Resource Workshop.Metoda Desen deplaseaza icoana cu un pas la fiecare sutime de secunda,timp de 5 secunde (500 de pasi).In mod similar, doua sau mai multe resurse de acest gen,se pot grupa sau suprapune prin metode special dedicate,pentru a realiza astfel un joc grafic.Efectul de animatie se realizeaza atunci cand imaginile se schimba cu o viteza de cel putin 30 de imagini/secunda.In exemplul de mai sus,imaginea este sacadata deoarece GetCurentTime are o sensibilitate de o miime de secunda,dar executa practic doar 19 operatii/secunda. Incercati sa realizati un obiect aemanator.De exemplu,o imagine care se compune prin gruparea unor resurse de tip icon,sub forma de "puzzle". In continuare,puteti sa deplasati o imagine de tip icon,peste cele pre- existente,astfel incat sa creeze prin sumatie senzatia de deplasare.Pentru fiecare tip de miscare,proiectati si definiti o metoda proprie. -179- In interiorul unui obiect,metodele se pot apela reciproc (cu exceptia constructorului si a destructorului).Mai mult,se pot realiza metode care lucreaza exclusiv prin apelarea celorlalte metode,dupa un algoritm pre- stabilit. EXEMPLU: program obiect60; uses WinCRT,WinProcs,WinTypes; var x,y:integer; type ob1=object constructor Init; procedure Valori1; procedure Valori2; procedure Executie; end; constructor ob1.Init; begin InitWinCRT; x:=17; y:=13; end; procedure ob1.Valori1; begin writeln('Prima procedura executata: '); writeln('x= ',x,' y= ',y); end; procedure ob1.Valori2; begin writeln; writeln('A doua procedura executata: '); writeln('x*y= ',x*y); end; procedure Executie; begin Valori1; Valori2; end; var obiect1:ob1; begin obiect1.Init; obiect1.Executie; Dispose(@obiect1); end. In exemplul de mai sus,metoda Executie,pune in executie cele doua metode ale obiectului(Valori1 si Valori2).Asadar,un obiect,pe langa un constructor si un destructor,poate sa beneficieze si de un executabil, adica de o metoda care apeleaza si executa toate celelalte metode,sau doar o parte dintre ele,dupa un algoritm prestabilit.Acest procedeu este util,mai ales atunci cand obiectul se utilizeaza pentru a efectua o serie intreaga de operatii (de exemplu: analiza unui text,verificarea sintaxei sau verificarea formatului de data etc.). Cu aceste notiuni elementare,si cu putina imaginatie puteti crea orice gen de obiecte,pentru a va simplifica munca de programare. -180- UNITATI SI BIBLIOTECI (statice si dinamice) Inca de la inceputul acestui manual,am enuntat conceptul modular care sta la baza limbajului Pascal.Astfel,functiile si obiectele standard sunt grupate in module denumite unitati.Ca rezultat,programatorul beneficiaza de o destul de mare liberate de miscare in modul de gestiune a memoriei si a resurselor cu care lucreaza.Am exemplificat pana acum,modul in care un program scris in Pascal poate pune in executie un alt program extern(cu ajutorul functiei WinExec-vezi pagina 3) si modul in care un program poate apela la resursele Windows create cu utilitarul Resource Workshop(accele- ratori,arii bitmap,cursoare,casete de dialog,fonturi,iconite,meniuri, tabele de siruri etc.) cu ajutorul directivei de compilare {$R }. Pe langa metodele deja enuntate,programul poate beneficia in executie de date furnizate din alte module denumite unitati sau biblioteci.Pentru a scrie si utiliza o unitate(asemantoare cu cele standard:WinCRT,Strings etc.),sunt necesare cateva notiuni elementare. Unitatile sunt module de program,identice cu programele propriu zise si servesc la impartirea programelor in fragmente mai mici,care sunt mai usor de menvrat in memoria de operare.Mai multe unitati se pot grupa pentru a forma biblioteci.In functie de modul in care sunt incarcate si manevrate in memorie,bibliotecile pot fi statice sau dinamice.Cele statice se incarca in memorie in etapa de compilare(adica inainte de a se executa prima linie din program) si sunt mentinute in memorie pe toata durata de executie a programului.Cele dinamice,se incarca in memorie in etapa de executie a programului,si anume doar in momentul in care sunt apelate de catre o comanda,functie sau instructiune,si pot fi sterse din memorie imediat ce nu mai sunt necesare. Resursele si unitatile standard,sau cele definite de utilizator sunt module statice.Programele executate cu WinExec si bibliotecile DLL(biblio- teci cu incarcare dinamica) sunt unitati dinamice. UNITATILE STATICE (units) Formeaza elementul de baza al programelor modulare.Limbajul utilizat pentru scrierea lor este identic cu cel din aplicatii si programe.Primul cuvant din program trebuie sa fie cuvantul cheie UNIT urmat de un identi- ficator(numele unitatii).Modulul propriu zis se compune din antet,partea de interfata(INTERFACE),partea de implementare(IMPLEMENTATION) si partea de initializare(bucla begin...end). Antetul(Heading) contine cuvantul cheie UNIT si numele unitatii. Interfata contine toate declaratiile: modulele incluse cu uses,declaratia pentru constantele,variabilele,tipurile de data,functiile si procedurile utilizate in modul. Implementarea contine definitiile pentru: modulele incluse cu uses(daca este cazul),etichetele(labels),constantele,variabilele,procedurile si functiile declarate in patrea de interfata. Initializarea contine toate instructiunile si comenzile cuprinse in interiorul buclei begin...end,cu scopul de a initializa unitatea. Pentru a edita o unitate noua,este bine sa scrieti initial un program oarecare(.pas) in care sa verificati si depanati toate datele declarate si definite. Dupa verificarea exhaustiva a sintaxei si a datelor,inlocuiti -181- in antetul filei cuvantul cheie PROGRAM cu cuvantul cheie UNIT.Apoi separati componentele modului in cele patru parti introducand cuvintele cheie INTERFACE (imediat dupa antet) si IMPLEMENTATION (intre partea de declaratii si cea de definitii ).In final eliminati din bucla begin...end toate apelurile utilizate pentru verificarea datelor(este de dorit ca bucla begin...end sa fie goala,deoarece toate instructiunile existente vor fi executate in fiecare program care apeleaza unitatea).In final compilati fila si unitatea este gata. EXEMPLU: unit Unit1; INTERFACE uses WinCRT; procedure Text(a,b:integer); IMPLEMENTATION procedure Text(a,b:integer); begin writeln('Exemplu de implementare a unei unitati:'); a:=10; b:=7; writeln('a= ',a,' b= ',b); writeln('produsul a*b= ',a*b); end; begin end. Salvati fila initial cu extensia .pas (unit1.pas) apoi compilati fila si verificati daca a aparut in director si fila unit1.TPW (cu un utilitar de DOS sau Windows). Pentru a utiliza unitatea,scrieti un program de genul: EXEMPLU: program prog1; uses unit1; begin Text(1,1); end. Observati ca nu mai este necesar sa incarcam unitatea WinCRT,deoarece este deja incarcata in memorie din unitatea UNIT1. Asadar,scrierea unei unitati comporta trei etape: 1. -se editeaza fila .pas care contine codurile 2. -se compileaza fila pentru a obtine o fila .TPU sau .TPW 3. -se include unitatea in programul dorit cu uses...(numele unitatii) In acest mod,cu ajutorul limbajului Pascal se pot edita module de pro- gram compatibile cu mai multe sisteme de operare(Linux,Windows,BeOs, FreeBSD,NetBSD,Pascal,Delphi etc...),cu conditia ca programul care le apelaza sa utilizeze conventiile potrivite de apel. Este bine si util sa insotiti intotdeauna unitatea realizata si cu fila de tip Pascal(cea cu extensia .pas),din urmatoarele motive: 1. -in eventualitatea ca doriti sa actualizati,modernzati,complectati sau transformati unitatea 2. -daca este necesar sa depanati un program care apeleaza unitatea res- pectiva si nu stiti exact ce elemente contine sau ce spatii de memorie ocupa datele din unitatea respectiva -182- 3. - este mai usor sa atasati fila sursa (codurile) decat sa scrieti cateva pagini de explicatii despre fila respectiva 4. - pentru a permite ca unitatea sa poata fi utilizata de catre sisteme diferite de operare(exemplu o unitate scrisa in Pascal si apelata din Delphi trebuie sa fie compilata din Delphi,in caz contrar pot sa apara incompatibilitati de format al datelor:-EXEMPLU date de tip integer pot fi in format de 16 biti in Pascal si 32 de biti in Delphi) 5. - pentru a permite si altor programatori sa faca modificari sau actua- lizari in unitatea respectiva Dupa cum am enuntat deja,toate comenzile si instructiunile din etapa de initializare,vor fi executate automat si in programele care apeleaza unitatea,in etapa de compilare.Aceasta proprietate se poate exploata, atunci cand dorim ca unitatea respectiva sa afiseze un anumit set de date, sa faca anumite operatii de control,sa verifice memoria libera etc. EXEMPLU: unit unit2; INTERFACE uses WinCRT,WinDos; var hour,min,sec,ssec,zi,luna,an,zz:word; fspace,tspace:longint; IMPLEMENTATION begin GetTime(hour,min,sec,ssec); GetDate(an,luna,zi,zz); fspace:=DiskFree(3); tspace:=DiskSize(3); writeln('Ora locala este: ',hour,' :',min,' :',sec,' :',ssec); writeln('data: ',zi,'-',luna,'-',an); writeln('unitatea C contine: ',fspace,' bytes memorie libera'); writeln('din: ',tspace,' bytes memorie totala'); end. Pentru utilizarea acestei unitati,nu este necesara nici o linie de comanda.In momentul incarcarii unitatii in memorie cu uses unit2,toate instructiunile din bucla begin...end ale etapei de initializare a unitatii se vor executa automat,inca din etapa de compilare: EXEMPLU: program prog2; uses unit2; begin end. Acest gen de implementare este util atunci cand doriti sa efectuati o serie de operatii preliminare,inainte de a incepe executia programului ,in genul utilitarului BIOS.In mod similar,se poate edita un antet fix, un tabel,o imagine grafica sau pictografica etc. Observati economia de spatiu realizata in programul de aplicatie,in care nu a fost necesar decat sa se incarce unitatea dorita. O astfel de unitate se poate scrie cu dedicatie pentru un anumit pro- gram,sau poate fi de uz univarsal (utila pentru orice program sau apli- catie.Mai mult decat programele,unitatile trebuie sa fie editate cat mai clar,simplu si scurt,inechivoc si usor de inteles. -183- In etapa de Interfata sunt acceptate toate tipurile de date,inclusiv cele de tip obiect si cele declarate de catre utilizator.Ca rezultat, o unitate se poate utiliza si pentru a arhiva obiecte care pot fi apoi apelate cu o singura comanda,la fel ca obiectele standard Windows: EXEMPLU: unit unit3; INTERFACE uses WinProcs,WinTypes,OStdWnds,OWindows,ODialogs; type E=object(TApplication) procedure InitMainWindow;virtual; procedure InitInstance;virtual; end; PE=^TE1; TE1=object(TFileWindow) constructor Init(AParent:PWindowsObject;ATitle:Pchar); end; IMPLEMENTATION constructor TE1.Init(AParent:PWindowsObject;ATitle:PChar); begin TFileWindow.Init(AParent,Atitle,'EDITOR 1'); Attr.Menu:=LoadMenu(hInstance,'FileCommands'); end; procedure E.InitMainWindow; begin MainWindow:=New(PE,Init(nil,'Fereastra de editare')); end; procedure E.InitInstance; begin TApplication.InitInstance; if Status = 0 then HAccTable:=LoadAccelerators(hInstance,'FileCommands'); end; begin end. Aceasta unitate defineste si incarca un obiect de tip TFileWindow, impreuna cu meniul si tastele de accelerare specifice.Obiectul poate fi utilizat pentru a edita si arhiva orice fila de tip text,sau pentru a verifica si deschide filele din arhiva existenta.Se poate utiliza in orice program cu un apel de genul: EXEMPLU: program prog3; uses unit3; var UnEditor:E; begin UnEditor.Init(nil); UnEditor.Run; UnEditor.Done; end. Observati ca tipul de data al obiectului si toate unitatile de memorie sunt incarcate cu unitatea UNIT3.Nu mai este necesara decat declararea unei variabile din tipul respectiv si apoi apelul direct al metodelor din obiect.Similar se pot arhiva toate obiectele necesare sau utile. -184- O procedura,functie,sau un obiect,se poate declara si defini intr-o unitate si fara a include unitatile auxiliare necesare(WinProcs,WinCRT, etc.) dar in acest caz,unitatile standard trebuiesc incluse in memorie in programul care apeleaza unitatea (in caz contrar datele vor fi nede- finite). EXEMPLU: unit unit4; INTERFACE procedure Greutate; var L,R1,R2,D,G:real; begin D:7.85; writeln('Calculul greutatii pentru o teava din otel:'); writeln('Introduceti lungimea (in mm):'); readln(L); writeln('Introduceti Raza exterioara (in mm):'); readln(R1); writeln('Introduceti Raza interioara (in mm):'); readln(R2); G:=((L*Pi*R1*R1/2)-(L*Pi*R2*R2/2))*D/1000000; writeln('Teava masurata cantareste: ',G,' Kg'); end; begin end. Unitatea se poate accesa cu un program de genul: EXEMPLU: program prog4; uses unit4,WinCRT; begin Greutate; end. Acest gen de implementare se recomanda atunci cand doriti sa grupati o serie de calcule,formule sau functii pe care le utilizati frecvent si scontati sa le implementati in mai multe programe sau aplicatii.Daca nu se introduc si unitatile de memorie necesare pentru declarare si defi- nitie,se realizeaza o economie oarecare de memorie,dar trebuie sa stiti exact ce unitati sunt necesare in momentul apelarii unitatii.Este mai comod sa includeti si unitatile necesare. Toate datele existente in unitatile statice declarate cu UNIT sunt exportate in momentul compilarii si sunt prezente in memorie pe toata durata executiei unui program.Ca rezultat,se poate include in unitati si apelul catre alte unitati,dar selectia trebuie facuta cu maximum de eco- nomie,deoarece unitatile o data incarcate nu mai pot fi eliberate din memorie (Exemplu: atunci cand o anumita variabila necesita o unitate intreaga doar pentru definitia tipului de data,este recomandabil ca sa fie inlocuita ori de cate ori este posibil cu o variabila banala care sa nu supraincarce memoria de operare,doar pentru un tip de data mai exotic).In general,datele din unitati trebuie sa fie reduse la minimum necesar (fara explicatii,inflorituri,artificii de calcul,spatii goale de rezerva sau variabile de rezerva neutilizate,etc.). In unitati,functiile se declara,se definesc si apoi se apeleaza la fel ca orice alta functie (apelul se face in cadrul unei expresii). -185- O functie trebuie sa returneze intotdeauna o valoare oarecare.Daca nu aveti nevoie de valoarea returnata (utilizati doar datele din corpul functiei) alegeti pentru returnare tipul de data cel mai economic,sau respectiv tipul de data care sa va permita o exploatare viitoare cat mai rationala a functiei respective (prin adaugarea de instructiuni noi care sa valorifice si valoarea returnata). EXEMPLU: unit unit5; INTERFACE var L1,L2,G,aria,suprafata,greutatea,volumul:real; function Cornier:real; IMPLEMENTATION function Cornier:real; begin writeln('CALCULUL UNUI CORNIER SIMETRIC DIN OTEL:'); writeln('Introduceti lungimea (in mm):'); Readln(L1); writeln('Introduceti latimea unei laturi (in mm):'); Readln(L2); writeln('Introduceti grosimea tablei (in mm): '); Readln(G); aria:=2*L1*L2; writeln('aria= ',aria,' mm patrati'); suprafata:=4*L1*L2+2*L2*G-2*L1*G; writeln('suprafata totala= ',suprafata,' mm patrati'); volumul:=2*L1*L2*G-L1*G*G; writeln('volumul total= ',volumul,' mm cubi'); greutatea:=volumul*7.85/1000000; writeln('Greutatea cornierului este: ',greutatea,' kg'); end; begin end. Pentru apelarea functiei se poate utiliza un program de genul: EXEMPLU: program prog5; uses WinCRT,unit5; var a;real; begin a:=Cornier; end. Observati ca valoarea returnata de functie nu este necesara in program. Am utilizat totusi o valoare de tip real,pentru a putea modifica oricand functia astfel incat sa returneze una dintre valorile calculate (de exemplu adaugand o instructiune de genul : return greutatea ). Este bine ca procedurile si functiile din unitati sa fie cat mai usor de modificat sau actualizat.Modificarea unei unitati are ca rezultat, actualizarea automata a tuturor unitatilor care apeleaza unitatea res- pectiva.Astfel,modificand o singura unitate se pot actualiza uneori zeci sau sute de aplicatii,simultan.Reciproc,o eroare de conceptie sau de im- plementare la nivelul unei unitati va invalida toate programele si apli- catiile care apeleaza unitatea respectiva.Pentru siguranta,este bine sa faceti copii de siguranta,pentru toate unitatile importante. -186- O unitate poate fi utilizata si pentru a stoca un set de constante si de variabile initializate,atunci cand un numar mai mare de aplicatii urmeaza sa apeleze aceleasi date.In plus,valorile sunt mai usor de actu- alizat,si depanat si nu exista riscul de a fi corupte in cursul executiei programelor.Datele pot fi salvate ca atare,sau pot fi preformatate sub forma de tabele,matrici,sigle si anteturi etc. EXEMPLU: unit unit6; INTERFACE const text1:string='S.C. INFORMATICA S.R.L.'; text2:string='Program nr.1 versiunea 1.0'; index1:integer=101; index2:integer=102; index3:integer=103; var nr1,nr2,nr3:integer; v1,v2,v3:real; IMPLEMENTATION begin nr1:=755; nr2:=333; nr3:=500; v1:=33.725; v2:=351.25; v3:=17.68; end. Din unitate,datele pot fi preluate si prelucrate cu diferiti algoritmi si apoi pot fi afisate in formate diferite.Pentru a forma un tabel simplu se va scrie un program de genul: EXEMPLU: program prog6; uses WinCRT,unit6; begin writeln(text1); writeln(text2); writeln; writeln(' TABEL DE VALORI'); writeln; writeln(index1:20,index2:20,index3:20); writeln(nr1:20,nr2:20,nr3:20); writeln(v1:20,v2:20,v3:20); end. In exemplele de pana acum,am utilizat toate datele din fiecare unitate declarata.Chiar daca toate datele din unitatile statice sunt accesibile in momentul compilarii,pentru a controla procesul de compilare a datelor se pot utiliza directivele conditionale de compilare($DEFINE,$ELSE,$ENDIF, $IFDEF,$IFNDEF,$IFOPT si $UNDEF).Aceste comenzi,se introduc intre acolade si controleaza procesul de compilare,astfel incat nu se vor introduce in memorie decat datele care respecta sau verifica conditiile prestabilite cu ajutorul acestor directive.In prezent,aceasta practica a fost inlocuita de catre bibliotecile cu alocare dinamica (DLL),dar exista situatii in care acest mecanism este inca in uz (Exemplu:-utilizarea partiala a unor unitati de date mai vechi-pentru a face economie de memorie). -187- EXEMPLU: unit unit7; INTERFACE {$ifndef WinCRT} uses WinCRT; {$endif} const culoare1:integer=5; culoare2:integer=7; culoare3:integer=2; culoare4:integer=1; culoare5:integer=4; IMPLEMENTATION begin end. Exemplul de mai sus poate fi utilizat pentru a salva o anumita paleta de culori.Conditia de precompilare $ifndef permite ca unitatea WinCRT sa fie incarcata doar daca nu este deja definita in unitate.Cu un mecanism similar se pot selecta unitatile incarcate in memorie in functie de o anumita valoare din unitate: uses {$ifdef VALOARE1} WinCRT,WinProcs,WinTypes; {$else} WinCRT; {$endif} Astfel este posibil ca unitatile standard sa nu fie apelate in mod re- petat,sa se evite suprascrierea accidentala a unor unitati care sunt de- numite la fel(au acelasi identificator) si se permite selectarea unor date in functie de o conditie prestabilita.EXEMPLU: -unitatile generate automat,in Delphi,vor fi denumite unit1,unit2...etc si vor suprascrie automat cele definite in exemplele precedente(Din acest motiv este bine sa denumiti altfel unitatile declarate de d-voastra). Pentru apelarea unitatii se poate utiliza un program de genul: EXEMPLU: program prog7; uses unit7; begin writeln('Paleta 1 de culori:'); writeln('culoare 1= ',culoare1); writeln('culoare 2= ',culoare2); writeln('culoare 3= ',culoare3); writeln('culoare 4= ',culoare4); writeln('culoare 5= ',culoare5); end. Exemplul de mai sus poate fi dezvoltat si pentru palete de culori com- patibile cu interfata Windows(in locul valorilor de tip integer se vor utiliza valori longint declarate cu functia RGB() ).Unitatea poate contine un set de palete de colori,dintre care se va selecta pentru precompilare doar una dintre ele,in functie de necesitatile de moment.In acest mod, cu o singura unitate se pot asigura un numar nelimitat de palete de culori pentru un numar nelimitat de aplicatii si programe.Acest gen de aplicatii, stau la baza conceptului modular de programare structurata si au permis dezvoltarea actuala a programelor de tip multitasking. -188- EXEMPLU: unit unit8; INTERFACE uses WinCRT; IMPLEMENTATION { {$define PAROLA} {$ifndef PAROLA} begin writeln('Accesul este interzis !'); exit; ($else} begin writeln('Accesul este permis: '); writeln('urmeaza implememntarea propriu-zisa:'); writeln('.......'); writeln('...restul unitatii !'); {$endif} end. Pentru apelarea unitatii se poate utiliza un program de genul: EXEMPLU: program prog8; uses unit8; begin end. Observati ca daca apelati unitatea asa cum este definita mai sus,se va compila doar partea inclusa intre directivele ($ifndef PAROLA} si respectiv {$endif}.Pentru a compila selectiv cealalta bucla este necesar sa stergeti prima acolada din expresia ( ($define PAROLA) astfel incat expresia sa devina ($define PAROLA}.Apoi recompilati unitatea si apelati din nou programul prog8. Acest exemplu ilustreaza o data in plus de ce este bine sa insotiti unitatile compilate (.TPU si .TPW) si de fila sursa de tip .PAS.Practic dint-o singura unitate se obtin doua unitati complet distincte. Astfel,cu ajutorul directivelor conditionale de precompilare se pot formula doua sau mai multe variante de compilare a datelor din aceeasi unitate sursa.Nu este bine,totusi,sa abuzati de prea multe directive de acest gen,sau sa formulati bucle de selectie a datelor prea complicate, deoarece unitatile vor fi incomprehensibile pentru alti programatori care ar fi eventual interesati sa le utilizeze.Este bine ca atunci cand decla- rati o unitate noua,sa aveti in vedere faptul sa ar putea sa fie utila si pentru alte programe,sau alti utilizatori.In acest sens,este bine ca datele declarate sa fie incluse in constante si variabile cu denumiri cat mai discriminative (se vor evita identificatorii de tip x,y,a,b,c etc si se vor prefera cei de tipul: variabilax1,variabilax2 etc.) astfel incat sa se evite pe cat posibil conflictul de nume cu eventualele constante si variabile din programul care apeleaza unitatea. Buclele de compilare conditionala pot fi utilizate cu succes pentru a selecta din unitatile declarate de altii,doar un fragment,cel care este util in programul d-voastra.Astfel,se economiseste munca de programare si memoria de operare.Reciproc,trebuie ca unitatile declarate de d-voastra sa poata fi apelate conditional de catre alti utilizatori (datele trebuie sa fie clare,expresiile cat mai simple si cat mai usor de evaluat,etc.). -189- Pentru a forma biblioteci,doua sau mai multe unitati se grupeaza cu uses: EXEMPLU: unit unit9; INTERFACE uses WinCRT,WinProcs,WinTypes; var w,h,nr,b:integer; t1,t2,t3:longint; IMPLEMENTATION begin Randomize; InitWinCRT; w:=GetActiveWindow; h:=GetDC(w); t1:=GetCurrentTime; repeat b:=CreateSolidBrush(RGB(Random(255),Random(255),Random(255))); SelectObject(h,b); Ellipse(h,100,100,200,200); t2:=GetCurrentTime; repeat t3:=GetCurrentTime; until t3>t2+1000; until t2>t1+10000; end. Unitatea poate fi apelata cu un program de genul: EXEMPLU: program prog9; uses unit9; begin end. Si o a doua unitate similara (in exemplu este derivata din prima): EXEMPLU: unit unit10; INTERFACE uses WinCRT,WinProcs,WinTypes; var w1,h1,nr1,b1:integer; t11,t21,t31:longint; IMPLEMENTATION begin Randomize; InitWinCRT; w1:=GetActiveWindow; h1:=GetDC(w1); t11:=GetCurrentTime; repeat b1:=CreateSolidBrush(RGB(Random(255),Random(255),Random(255))); SelectObject(h1,b1); Rectangle(h1,350,100,450,200); t21:=GetCurrentTime; repeat t31:=GetCurrentTime; until t31>t21+1000; until t21>t11+10000; end. -190- Cea de a doua unitate se poate apela cu: EXEMPLU: program prog10; uses unit10; begin end. Pentru a utiliza ambele unitati se poate scrie un program de genul: EXEMPLU: program prog11; uses unit9,unit10; begin writeln('Sfarsitul compilarii celor doua unitati !'); writeln('Incepe programul propriu zis...'); end. Pentru a forma o biblioteca,cele doua unitati pot fi grupate intr-o sin- gura unitate,care le apeleaza pe amandoua in etapa de INTERFACE,prin instructiunea uses. EXEMPLU: unit unit11; INTERFACE uses unit9,unit10; IMPLEMENTATION begin end. In continuare,pentru a utiliza cele doua unitati este suficient sa fie apelata biblioteca care le cuprinde pe amandoua: EXEMPLU: program prog12; uses unit11; begin end. In mod similar se pot grupa un numar mai mare de unitati,pentru a forma biblioteci mai complexe.In exemplele de mai sus,unitatile executa si o serie de operatii in etapa de initializare,pentru a evidentia cat mai clar de unde si pana unde dureaza compilarea fiecarei unitati (prima ge- nereaza cercuri colorate aleator,iar cea de a doua genereaza patrate. Observati ca unitatile apelate se incarca o singura data in memorie si orice apel ulterior suprascrie acelasi fragment de memorie: EXEMPLU: program prog13; uses unit9,unit10,unit11; begin end. este identic cu prog12.Ca rezultat,unitatile pot fi apelate ori de cate ori este necesar fara riscul de a supraincarca memoria prin rescrierea acelorasi unitati.Totusi,este preferabil ca fiecare unitate sa fie apelata o singura data,deoarece repetitia iterativa introduce operatii inutile care cresc nejustificat uzura aparaturii.In plus,este bine ca fiecare programator sa tina o evidenta cat mai stricta a memoriei consumate.Daca va bazati doar pe sistem in gestiunea memoriei,mai devreme sau mai tarziu puteti avea si surprize neplacute. Gruparea unitatilor sub forma de biblioteci,adauga putina eleganta in munca de ordonare a datelor si formeaza un obicei bun.In mod similar,in cazul bibliotecilor alocate dinamic (DLL),toate functiile importate din biblioteci diferite se pot grupa intr-o biblioteca(unitate) de import. -191- BIBLIOTECILE ALOCATE DINAMIC (DLL) Bibliotecile alocate dinamic,denumite prescurtat DLL(dynamic link li- braries),sunt asemanatoare cu cele statice dar au cateva particularitati. Orice biblioteca DLL incepe cu cavantul cheie library (in loc de unit sau program) care determina compilatorul sa genereze o fila cu extensia .dll. Asa cu le spune si numele,aceste biblioteci nu sunt incarcate in memorie in momentul compilarii programului ci doar in momentul executiei. Principalul scop al acestor biblioteci este de a permite mai multor programe si aplicatii sa utilizeze acelasi set de date sau aceleasi coduri functii si proceduri sau chiar obiecte.O biblioteca DLL este un modul executabil,independent si poate contine pe langa coduri si resurse proprii (gen icoane,cursoare,arii bitmap,tabele etc.).Prezenta bibliotecii este obligatorie atunci cand un program apeleaza o astfel de biblioteca.Astfel, daca intr-un program exista functii declarate EXTERNAL,care importa defi- nitia dintr-o fila de tip .dll,este obligatoriu ca fila .dll sa fie pre- zenta in momentul compilarii,chiar daca nu va fi incarcata in memorie si nu va fi utilizata in cursul executiei programului(functiile raman neape- late).Aceasta este si principala deficienta introdusa de utilizarea unor astfel de biblioteci (daca se sterge din greseala una dintre bibliotecile DLL apelate,programul respectiv nu mai poate fi utilizat). In schimb,actualizarea sau modificarea unei file DLL va atrage dupa sine actualizarea tuturor programelor si aplicatiilor care utilizeza fila res- pectiva.In plus,bibliotecile DLL nu consuma din memoria de operare si nu sunt incarcate in memorie decat strict functiile apelate si doar in mo- mentul in care sunt apelate. Spre deosebire de bibliotecile statice,bibliotecile DLL nu exporta toate datele ci doar pe cele specificate expres prin cuvantul cheie EXPORT si respectiv incluse in lista de export introdusa cu ajutorul cuvantului cheie EXPORTS.Asadar,o biblioteca DLL poate contine atat date interne (care pot fi apleate doar in interiorul filei DLL) cat si date (functii,proceduri,obiecte) care pot fi exportate in alte module. Toate variabilele globale dintr-o fila DLL sunt strict interne si nu pot fi exportate.Clasic,bibliotecile DLL exporta doar functii si proce- duri,dar se poate apela la un mic artificiu prin care o functie oarecare returneaza o valoare de tip obiect,caz in care obiectul respectiv poate fi exportat. Legatura(link) dintre programul apelant si fila DLL care contine defi- nitia functiilor exportate se face in momentul compilarii programului ( chiar daca incarcarea in memorie se va face doar in momentul executiei !). Bibliotecile DLL pot fi partajate nu doar de catre utilizatori si pro- grame diferite scrise in Pascal,dar pot fi utilizate si de catre programe scrise in alte limbaje (C si C++,Delphi,Oracle,Visual Basic etc.) cu conditia sa utilizeze aceleasi conventii de apel si respectiv sa contina doar functii comune pentru ambele limbaje (de exemplu functiile Windows). Principalele conventii de apel sunt:REGISTER,CDECL,STDCALL,SAFECALL si PASCAL.Register,este conventia implicita si transfera parametrii de la dreapta la stanga in timp ce CDECL,STDCALL si SAFECALL transfera para- metrii de la stanga la dreapta.CDECL se utilizeaza in bibliotecile DLL scrise in C si C++ iar STDCALL si SAFECALL sunt utile mai ales pentru cele care contin functii Windows API. -192- O biblioteca DLL se editeaza la fel ca un program obisnuit,dar se incepe cu cavantul cheie library urmat de numele bibliotecii(identificator) Functiile si procedurile care urmeaza sa fie exportate se specifica expres adaugand cuvantul cheie EXPORT la sfarsitul declaratiei,iar la sfarsitul etapei de implementare se adauga un modul de export care incepe cu cuvant- ul cheie EXPORTS si continua cu lista functiilor si procedurilor exportate EXEMPLU: library bibdll1; function Mesaj:PChar;export; begin mesaj:='Text preluat din biblioteca bibdll1'; end; exports Mesaj; begin end. Utilizarea bibliotecii se poate face cu un program de genul: EXEMPLU: program progdll1; uses WinCRT; function Mesaj:PChar;external 'bibdll1'; begin writeln(mesaj); end. Observati ca pentru a importa functia dorita din fila DLL,am utilizat cuvantul cheie external,urmat de numele bibliotecii(identificatorul). Este foarte simplu ! Atunci cand biblioteca contine un numar mai mare functii care urmeaza sa fie exportate,se poate adauga un index pentru a identifica mai usor fiecare functie (mai ales in etapa de depanare a programului). EXEMPLU: library bibdll2; function Min1(x,y:integer):integer;export; begin if x<y then Min1:=x else Min1:=y; end; function Max1(x,y:integer):integer;export; begin if x>y then Max1:=x else Max1:=y; end; exports Min1 index 1, Max1 index 1; begin end Observati ca in modulul de export,cele doua functii exportate au primit si un numar de indexare cu ajutorul caruia pot fi identificate mult mai discriminativ.Clauza de indexare este facultativa iar numarul de indexare poate fi orice numar de tip unsigned int (1-32767).Daca nu se specifica numarul de indexare,functia va avea un numar de ordine atribuit automat. In continuare,cele doua functii vor putea fi apleate prin indexul lor: -193- EXEMPLU: program progdll2; uses WinCRT; function Min1(x,y:integer):integer;external 'bibdll2' index 1; function Max1(x,y:integer):integer;external 'bibdll2' index 2; begin writeln('minima dintre 19 si 3 este: ',Min1(19,3)); writeln('maxima dintre 99 si 7 este: ',Max1(99,7)); end. Asadar,cele doua functii pot fi apelate atat prin numele lor (la fel ca in primul exemplu),cat si prin numarul lor de indexare.A treia modali- tate de a importa o functie este prin utilizarea unui nume nou fata de cel initial(functia importata va fi redenumita prin noul identificator). La prima vedere pare putin confuz si complicat,conform cu aforismul: " That which is static and repetitive is boring That which is dynamic and random is confusing In between lies art ! John A.Locke " Pentru a evita o mare parte din confuziile posibile,este de dorit ca atunci cand editati biblioteci DLL pe care doriti sa le poata utiliza si alti programatori,sa adaugati pe langa fila de explicatii,si fila de cod sursa,cu extensia .PAS(cea care a fost compilata pentru a genera fila DLL) Ratiunile sunt aceleasi ca si pentru unitati.In plus,bibliotecile de tip DLL pot fi utilizate modular (utilizatorul poate alege singur functiile pe care doreste sa le importe).Fara fila sursa este putin probabil ca munca d-voastra sa fie utila si altor programatori.In caz ca scrieti programe comerciale si jocuri,caz in care doriti sa pastrati secretul codurilor si sa valorificati material munca depusa,puteti sa puneti la dispozitie doar fila gata compilata si un sumar de explicatii si recoman- dari,cu speranta unor castiguri viitoare (personal nu cunosc nici un mili- onar cu bani produsi din DLL-uri). O procedura se editeaza si exporta la fel ca si o functie.Este reco- mandabil sa utilizati doar majuscule sau doar minuscule atunci cand formulati numele procedurii (Exemplu: MESAJ sau mesaj in loc de Mesaj). EXEMPLU: library bibdll3; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure mesaj;export; begin x:=messagebox(GetActiveWindow,'Bun gasit ...DLL','mesaj',MB_OK); end; exports mesaj index 1; begin end. Editarea respecta aceleasi reguli ca si in cazul unitatilor.Conventiile de limbaj sunt aceleasi.Diferenta este data de faptul ca o biblioteca DLL poate contine si coduri interne,care nu vor fi accesibile in programul apelant.De exemplu,variabila x din acest program nu va putea fi preluata sau apelata in programul sau aplicatia care utilizeaza aceasta fila. -194- Fila DLL descrisa anterior poate fi apelata cu un program de genul: EXEMPLU: program progdll3; uses WinCRT,WinProcs,WinTypes; procedure mesaj:external 'bibdll3' index 1; begin InitWinCRT; mesaj; end. In momentul apelului unei proceduri externe,aceasta poate sa apeleze si procedurile interne din fila DLL (daca este cazul),inainte de a retur- na executia la programul apelant.De exemplu,mesajul de mai sus poate fi continut intr-o procedura interna (care nu este exportata) dar va fi pre- luat cu ajutorul unei functii exportate: EXEMPLU: library bibdll4; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure text; begin x:=MessageBox(GetActiveWindow,'Bun gasit ...DLL','mesaj:',MB_OK); end; procedure mesaj;export; begin text; end; exports mesaj index 1; begin end. Pentru apelul functiei se va utiliza un program similar cu progdll3: EXEMPLU: program progdll4; uses WinCRT,WinProcs,WinTypes; procedure mesaj;external 'bibdll4' index 1; begin InitWinCRT; mesaj; end. Diferenta fata de fila DLL precedenta este data de faptul ca procedura mesaj (cea exportata) apeleaza la o procedura interna (procedura text), inainte de a returna executia la programul apelant.In mod similar,pro- cedurile din fila DLL se pot apela intre ele,ori de cate ori este necesar inainte de a returna controlul la fila apelanta.Atentie maxima insa,sa nu ramana nici un proces in executie inainte de a returna controlul catre fila apelanta.In caz contrar,procesul respectiv va ramane in executie in background si va parazita memoria de operare pana la oprirea calculato- rului(spre deosebire de procesele neterminate din fila de program,care se vor intrerupe automat in momentul inchiderii programului.Orice stream ramas deschis si orice obiect neeliberat din memorie va determina un proces parazitar,redundant,care blocheaza memoria de operare (programul respectiv nu va mai putea fi lansat decat dupa inchiderea calculatorului). -195- Filele DLL se pot utiliza si pentru aplicatiile grafice.Functiile si procedurile se definesc la fel ca si in programe,dar cu atentie maxima la eliberarea obiectelor definite si a variabilelor de tip handle: EXEMPLU: library bibdll5; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure desen;export; begin x:=GetDC(GetActiveWindow); TextOut(x,50,10,'Aplicatie grafica:',18); MoveTo(x,50,50); LineTo(x,50,250); LineTo(x,250,250); Rectangle(x,100,100,200,200); Ellipse(x,120,120,180,180); ReleaseDC(GetActiveWindow,x); end; exports desen index 1; begin end. Fila DLL descrisa mai sus poate fi apelata cu: EXEMPLU: program progdll5; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure desen;external 'bibdll5' index 1; begin InitWinCRT; desen; exit; end. In exemplul de mai sus,daca se omite eliberarea variabilei handle x,in care am stocat codul pentru contextul de dispozitiv (cu GetDC() ),atunci procesul respectiv va ramane stocat in memorie si va bloca relansarea programului (returneaza un mesaj de eroare nedeterminat). Pentru a evita astfel de erori,verificati cu foarte mare atentie fiecare element la filelor DLL.Executati fiecare functie exportata de mai multe ori si verificati cu atentie si memoria ramasa libera in urma executiei.Orice greseala,oricat de mica,la nivelul unei biblioteci de functii DLL se va rasfrange asupra tuturor programelor si aplicatiilor care apeleaza biblioteca respectiva.Astfel,daca in etapa de actualizare a unei biblioteci DLL introduceti o eroare de executie,aceasta va bloca toate aplicatiile linkate la fila respectiva. Din acest motiv,nu este bine sa utilizati biblioteci DLL la care nu aveti acces la fila de coduri.Daca biblioteca nu este insotita de fila .PAS si daca nu detineti un program care face conversia inversa,(din fila executabila in fila .PAS)este mai bine sa nu utilizati filele DLL scrise de altcineva,decat strict pentru scopul pentru care v-au fost livrate. In situatii disperate,inlocuiti functia exportata cu una redefinita. -196- Daca utilizati o biblioteca DLL in comun cu alti utilizatori,si nu stiti exact in ce alte aplicatii este apelata,nu incercati sa faceti actualizari ale filei,deoarece dernajati sau chiar invalidati aplicatiile celorlati utilizatori.Pentru filele utilizate in retea,toate actualizarile si modernizarile sunt rezervate administratorului de retea. La fel ca si in cazul unitatilor,se poate utiliza si blocul de initia- lizare situat in interiorul buclei begin ... end.In acest caz,toate co- mezile si instructiunile din acest compartiment se vor executa in etapa de compilare (ca si in cazul unitatilor,legatura dintre aplicatie si fila DLL=linkarea,se face in etapa de compilare). EXEMPLU: library bibdll6; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure desen;export; begin x:=GetDC(GetActiveWindow); Rectangle(x,100,100,200,200); ReleaseDC(GetActiveWindow,x); end; procedure desen2;export; begin x:=GetDC(GetActiveWindow); Ellipse(x,100,100,200,200); ReleaseDC(GetActiveWindow,x); end; exports desen index 1,desen2 index 2; begin x:=MessageBox(GetActiveWindow,'Bucla begin ...end','text:',MB_OK); end. Pentru evaluarea filei DLL,utilizati programul: EXEMPLU: program progdll6; uses WinCRT,WinProcs,WinTypes; var y:integer; c:char; procedure desen;external 'bibdll6' index 1; procedure desen2;external 'bibdll6' index 2; begin InitWinCRT; writeln('Tastati ENTER pentru a apela fila DLL:'); readln; desen; writeln('Apasati tasta ENTER:'); readln; ClrScr; desen2; writeln('Sfarsit !'); exit; end. -197- Observati ca fiecare procedura grafica defineste propriul context de dispozitiv (DC) pe care il elibereaza la sfarsitul executiei,pentru a nu ramane procese restante aflate in executie.Este extrem de important ca executia functiile si a procedurilor din bibliotecile DLL sa nu lase urme in memoria de operare. Apelarea functiilor externe cu ajutorul cuvantului cheie EXTERNAL, poarta numele de apel implicit si asigura legarea filei DLL de programul apelant(in momentul compilarii).Bibliotecile DLL pot fi insa accesate si prin alt mecanism,denumit apel explicit.In acest caz,fila DLL nu este legata de programul apelant(programul poate rula si in absenta filei DLL). Apelul propriu zis se face prin functia LoadLibrary,pentru incarcarea filei in memorie si respectiv cu functia GetProcAddress pentru a afla adresa functiei dorite. EXEMPLU: library bibdll7; uses WinCRT,WinProcs,WinTypes; var x:integer; procedure desen;export; begin x:=GetDC(GetActiveWindow); Rectangle(x,100,100,200); ReleaseDC(GetActiveWindow,x); end; exports desen index 1; begin x:=GetDC(GetActiveWindow); Ellipse(x,100,100,200); ReleaseDC(GetActiveWindow,x); x:=MessageBox(GetActiveWindow,'Bucla begin...end','text:',MB_OK); end. Daca aceasta biblioteca se apeleaza explicit,instructiunile din bucla begin ... end nu vor mai fi executate in momentul compilarii,ci doar in momentul incarcarii filei DLL cu LoadLibrary: EXEMPLU: program progdll7; uses WinCRT,WinProcs,WinTypes; var y:integer; z:TFarProc; begin InitWinCRT; writeln('Tastati ENTER pentru a apela fila DLL:'); readln; y:=LoadLibray('bibdll7.dll '); writeln('Modulul incarcat are codul:',y); z:=GetProcAddress(y,'desen '); writeln('Adresa procesului este:',Seg(z)); writeln('si are offset-ul: ',Ofs(z)); FreeLibrary(y); exit; end. Observati momentul in care apare mesajul returnat de MessageBox. -198- Adresa procesului returnata de functia GetProcAddress,este de tip pointer si poate fi utilizata in proceduri scrise in limbaj de asamblare. Cele doua moduri de apel al unei file DLL,pot fi alese sau alternate in functie de necesitatile de moment.Marea majoritate a aplicatiilor uzeaza de apelul imlicit deoarece este mai simplu si mai usor de implementat(nu necesita proceduri scrise in asambler pentru executia datelor din adresa returnata).Totusi exista situatii in care se prefera apelul explicit.In rezumat,aceste situatii sunt: 1.- atunci cand aplicatia nu stie ce fila DLL urmeaza sa fie incarcata in momentul executiei.In acest caz,aplicatia nu va fi legata de o fila DLL anume,urmand ca legarea sa se faca in functie de fila DLL necesra (Exemplu:-numele filei DLL este returnat de o functie din fila de configurare a sistemului) 2.- atunci cand fila DLL necesara lipseste si utilizatorul doreste sa ruleze programul fara fila respectiva sau apeland o alta fila DLL. In acest caz se schimba apelul impicit cu unul explicit(se sterge cuvantul cheie EXPORTED din definitia functiilor exportate) 3.- in situatiile in care un apel implicit este legat de o functie DllMain invalidata.In acest caz,programul este blocat in cazul apelului impli- cit,dar nu este blocat in cazul apelului explicit(apelul explicit nu este legat de functia DllMain) 4.- in situatiile in care un program utilizeaza un numar foarte mare de biblioteci DLL.In acest caz,lansarea programului poate fi intarziata destul de mult pana cand fiecare fila DLL este legata de aplicatie (in etapa de compilare).Pentru a grabi procesul de start,se pot apela implict doar filele DLL necesare pentru initilaizarea programu- lui urmand ca restul filelor DLL sa fie apelate explicit,daor in momentul in care sunt necesare. 5.- apelul explicit nu are nevoie de o fila de import in care sa grupeze functiile exportate.Programele care apeleaza o fila DLL in mod expli- cit,nu au nevoie sa actualizeze legarea filei(relink) nici in cazul in care fila DLL a fost actualizata si functiile si-au schimbat valoa- rea de indexare (GetProcAddress apeleaza numele filei). Exista si situatii in care apelul explicit este mai bine sa fie evitat sau inlocuit prin apelul implicit.Aceste situatii sunt: 1.- daca biblioteca DLL foloseste o functie de tip DllMain ca punct de intrare,apelul repetat prin LoadLibrary nu se poate face decat daca fiecare apel a fost urmat si de un apel de tipul FreeLibrary.In caz ca exista un cod (handle) pentru modulul respectiv,functia LoadLibrary na va putea reincarca modulul(sistemul de operare apeleaza functia in contextul liniei de executie (thread) care a apelat functia LoadLi- brary). 2.- daca biblioteca DLL declara date de tip static cu __declspec(thread), e posibil sa declanseze o eroare de tip cod de protectie,in cazul in care functia respectiva este apelata explicit(in C++).Daca se utili- zeaza date statice (globale sau locale),se recomanda apelul implicit. In concluzie,apelul imlicit se recomanda pentru toate programele cu file fixe,bine cunoscute,bine caracterizate,actualizate rar si putin numeroase. Apelul explicit se recomanda pentru file necunoscute,actualizate frecvent, cu numar de functii variabil,sau in cazul filelor DLL extrem de numeroase. Decizia finala este in functie de experienta si de necesitatile de moment. -199- In situatiile in care doriti sa importati o singura functie sau pro- cedura,doar in momentul executiei,cea mai simpla modalitate este sa uti- lizati un apel explicit spre o fila DLL care contine functia sau proce- dura in interiorul buclei begin...end.In acest caz nu mai este nevoie sa apelati functia GetProcAddress,ci doar functia LoadLibrary.Este bine sa specificati calea de acces completa si numele filei DLL complet,inclusiv cu extensia .dll. Atentie insa sa eliberati complet procesele initializate inainte de a returna comanda la programul apelant.Atentie si la variabilele statice si globale.Daca utilizati variabile globale si apelati fila DLL in mod repetat,si cu programe diferite,este probabil ca variabila de tip global sa primeasca la fiecare executie valoarea atribuita de programul precedent (exista o singura instanta a filei DLL,indiferent de numarul de aplicatii care apeleaza fila respectiva,ca rezultat,toate aplicatiile vor avea acces la toate variabilele de tip global din fila DLL,pe care le pot modifica prin procedurile interne,dar nu le pot importa). Daca utilizati si functia GetProcAddress,trebuie sa definiti si o functie sau o procedura care sa valorifice datele arhivate la adresa preluata (eventual o functie sau o procedura de acelasi tip cu cel din fila DLL din care a fost exportata). Bibliotecile DLL pot sa importe la randul lor file din alta biblioteca DLL (sau pot schimba date,in caz ca folosesc functii de tip call-back): EXEMPLU: library bibdll8; uses WinCRT,WinProcs,WinTypes; procedure mesaj;external 'bibdll3.dll' index 1; procedure transfer;export; begin mesaj; end; exports transfer index 1; begin end. Explotarea bibliotecii se poate face cu un program de genul: EXEMPLU: program progdll8; uses WinCRT,WinProcs,WinTypes; procedure transfer;external 'bibdll8.dll' index 1; begin transfer; end. Acest gen de biblioteca se poate utiliza atunci cand doriti sa selectati un anumit numar de functii,din una sau mai multe file DLL auxiliare.Acest tip de fila DLL poate inlocui unitatea de import.In exemplul de mai sus, procedura TRANSFER exporta procedura MESAJ pe care a importat-o din alta fila DLL.In mod similar,bibliotecile se pot apela reciproc,si pot sa-si transmita mesaje de raspuns,in functie de datele importate(Exemplu: se poate scrie o fila DLL care verifica automat integritatea si functionali- tatea celorlalte file DLL necesare pentru o anumita aplicatie=fila de control si depanare).O astfel de fila,poate extrage dintr-o arhiva toate functiile importate,necesare pentru aplicatia in curs. -200- Bibliotecile DLL se pot utiliza si pentru a arhiva obiecte sau resurse. Pentru a arhiva si apela un obiect,se va declara si defini tipul de data pentru obiectul respectiv,apoi se va declara o variabila locala din tipul respectiv in interiorul procedurii exportate.Eventual se vor apela si metodele obiectului,tot in cadrul procedurii: EXEMPLU: library bibdll9; uses WinProcs,WinTypes,OWindows; type F1=object(TApplication) procedure InitMainWindow;virtual; end; procedure F1.InitMainWindow; var x:integer; begin MainWindow:=New(PWindow,Init(nil,'Fereastra obiectului creat')); x:=MessageBox(GetActiveWindow,'Obiectul exportat','',MB_OK); end; procedure ob1;export; var FF:F1; begin FF.Init(nil); FF.Run; FF.Done; end; exports ob1 index 1; begin ob1; end. Pentru a apela obiectul,se va apela procedura care il contine,intr-un program de genul: EXEMPLU: program progdll9; uses WinProcs,WinTypes,OWindows; procedure ob1;external 'bibdll9.dll' index 1; begin ob1; end. Dupa cum se observa foarte usor,este mai usor de importat un obiect decat de definit.Pentru a va simplifica munca,puteti sa arhivati obiectele mari in file DLL,de unde le importati doar in momentul executiei.In acest fel,programul principal devine mult mai mic,mai rapid,mai usor de executat si mai usor de depanat.Atentie maxima insa la destructorii obiectului. Este bine sa utilizati obiectele standard,sau sa verificati cu foarte mare atentie eliberarea memoriei. Un alt avantaj semnificativ il reprezinta faptul ca nu este obligatoriu sa schimbati obiectul la fiecare actualizare.Puteti pur si simplu sa scrieti o fila noua pentru obiectul redefinit,astfel incat obiectul sa poata fi utilizat si cu vechea definitie,daca este cazul (copia de sigu- ranta).Evident,obiectul respectiv poate fi apelat din orice alta aplicatie sau poate avea instante diferite in aplicatii diferite.Similar,fila DLL poate contine orice tip de resurse(icon,cursoare,tabele,arii bitmap etc.). -201- Unitatile(cu alocare statica) si bibliotecile DLL(cu alocare dinamica) se pot utiliza si combinat,astfel incat sa se cumuleze avantajele ambelor tipuri de module.Astfel,de exemplu,se poate realiza o unitate de import care sa acumuleze un grup de functii preluate din mai multe biblioteci de tip DLL.Ca rezultat,functiile respective vor fi accesibile in program in orice moment,fara sa mai fie nevoie sa fie definite sau importate. O astfel de unitate simplifica munca de programare si exploateaza munca efectuata anterior: EXEMPLU: unit unit12; INTERFACE uses WinCRT,WinProcs,WinTypes,OWindows; function mesaj:PChar; function Min1(x,y:integer):integer; function Max1(x,y:integer):integer; procedure desen; IMPLEMENTATION function Mesaj:PChar;external 'bibdll1.dll'; function Min1(x,y:integer):integer;external 'bibdll2.dll' index 1; function Max1(x,y:integer):integer;external 'bibdll2.dll' index 2; procedure desen;external 'bibdll5.dll' index 1; begin end. Unitatea cumuleaza functii si proceduri din trei file DLL definite anterior.Dupa cum se observa,procedurile si functiile exportate se declara in etapa de interfata iar definitia lor este importata in momentul compilarii programului apelant in etapa de implementare a unitatii.Acest gen de unitate combina ambele tipuri de alocare a memoriei.Pentru exploa- tarea unitati se va scrie un progam asemanator: EXEMPLU: program prodll12; uses unit12,WinCRT; begin writeln(mesaj); writeln('min(77,33)= ',Min1(77,33)); writeln('max(99,12)= ',Max1(99,12)); writeln('Tastati ENTER pentru aplicatia grafica: '); readln; ClrScr; desen; exit; end. Daca utilizati multe file DLL,start-ul programului poate fi intarziat uneori chiar destul de mult,pana cand sistemul de operare realizeaza toate legaturile solicitate. In toate unitatile si bibliotecile este bine sa utilizati denumiri cat mai discriminative,unice,usor de identificat si depanat.Evitati toate supraincarcarile de operator sau identificator,chiar daca sunt acceptate de sistemul de operare,deoarece munca de depanare va fi mult mai usoara. Pentru aplicatiile de uz public,este bine sa utilizati conventiile stan- dardizate de formare a denumirilor (vezi standardele MFC etc.) -202- IMPRIMAREA DATELOR (unitatea WinPrn) Pentru a imprima textul unui program editat de d-voastra este sufi- cient sa selectati optiunea Print din meniul File(cu conditia ca impri- manta sa fie pregatita pentru imprimare si setata pentru Windows).Pentru a trimite datele de tip text,din interiorul unui program spre imprimanta, se poate apela unitatea WinPrn,care cuprinde functiile: AbortPrn,TitlePrn, AssignPrn,AssignDefPrn si SetPrnFont. EXEMPLU: program prgprn1; uses WinCRT,WinProcs,WinTypes,WinPrn; var Fila:text; x,y:real; begin Assign(Fila,'fila1.text'); AssignDefPrn(Fila); Rewrite(Fila); writeln(Fila,'TEST IMPRIMARE IN PASCAL !'); writeln(Fila); writeln(Fila,'CARACTERE: abcdefghijklmnopqrstuvwxyz '); writeln(Fila,' 1 2 3 4 5 6 7 8 9 0 '); writeln(Fila,' ! @ # $ % ^ & * ( ) _ + < > ? '); x:=PI; y:=3713.17; writeln(Fila,y,' impartit la: ',x,' = ',y/x); Close(Fila); AbortPrn(Fila); end. Pentru a prelua si imprima datele dintr-o fila .txt,puteti utiliza: EXEMPLU: program prgprn2; uses WinCRT,WinProcs,WinTypes,WinPrn; var Fila,F2:text; Ch:string; begin Assign(Fila,'control1.txt'); AssignDefPrn(F2); Reset(Fila); ReWrite(F2); while not Eof(Fila) do begin Readln(Fila,Ch); Writeln(F2,Ch); end; Close(Fila); Close(F2); AbortPrn(F2); end. Pentru manipularea filelor puteti utiliza FileWindow(vezi obiect3.pas). Cu aceasta unitate se incheie si acest manual.Cei care doresc mai multe informatii,pot consulta literatura de specialitate. ACTA EST FABULA 